eval(readFile("Etude_Library"))

happy_birth_day = '

        hbd =
             " 1 "
             : 1 :
             $ 1 3 5 6 8 10 12 13 $
             @ 48

        one = hbd except
             " 5 5 6 5 ^ 1 v 7 "
             : 1 1 2 2   2   4 :

        two = hbd except
             " 5 5 6 5 ^ 2 1 "
             : one :

        three = hbd except
             " 5 5 ^ 5 3 1 v 7 6"
             : 1 1   2 2 2   2 2:

        firstending = hbd except
             " ^ 4 4 3 1 3 2"
             :   1 1 2 2 2 4:

        secondending = hbd except
             " ^ 4 4 3 1 2 1"
             : firstending:

        lineone = one.two.three.firstending.one.two.three.secondending

        harp = lineone

'

compile(happy_birth_day)