:load prelude
main = play (cons (event (program 0 48)) timpanis)
timpanis = append timpani timpanis
timpani = concatMap makeNote [20,20,20,60,60,30,30,60]
makeNote = \d ! note d 0 43 96