曲名{"あそびをせんとやうまれけん"}
System.RandomSeed=20120911
Int i #L={"あそびをせんとやうまれけん"} #M="" 
@Bassoon q=96 REV(96)
[4 i=1
  [13 #M=#M+"l"+(Random(2)+1)+"o"+(Random(2)+5)+MID("defa",ASC(MID(#L,i,1))%4+1,1)i++]
  #M=#M+"r1"
]
#M