(ins :sine :src :sine-synth :note (p (times 12 [a3 c4 e3 g2]) (times 12 [a3 c4 eb3 gb2])) :fx nil :dur nil :amp nil :voice nil)

(ins :kick-808 :src :kick-808 :note (p (times 12 [0 0 0 0]) (times 12 [c4 0 0 0])) :fx nil :dur nil :amp nil :voice nil)

(ins :hat-808 :src :hat-808 :note (p (times 12 [0 0 0 0]) (times 12 [c8 d8 e8 g8]) (times 12 [c4 0 0 0])) :gate nil :fx nil :dur (p (times 12 [0.1 0.1 0.1 0.1]) (times 12 [0.3 0.4 0.2 0.5])) :amp nil :voice nil)

Small example to try it out