import Data.List
import Euterpea
fun t n = x ++ k
      where
      m = maximum p
      l = delete m p
      x = l ++ [m]
      d = length t
      p = take (d-n) t
      k = drop (d-n) t
gun k t = map (\x-> 12 * k + x) t
hun t = map (note qn) (map pitch t)
iun t n = hun (gun 4 (fun t n))
jun t n = line $ iun t n
muzyka t n = line $ map (jun t) [n, n-1..0]

uruchomienie:

play $ muzyka [3 ,7 ,9 ,12 ,3] 4