eval(readFile("Etude_Library"))

happy_birth_day = 'hbd =
             " 1 "
             : 1 :
             $ 1 3 5 6 8 10 12 13 $
             @ 48
        one = 
             " 5 5 6 5 ^ 1 v 7 "
             : 1 1 2 2   2   4 :
             $ hbd $
             @ hbd 
        two = 
             " 5 5 6 5 ^ 2 1 "
             : one :
             $ hbd $
             @ hbd
        three = 
             " 5 5 ^ 5 3 1 v 7 6"
             : 1 1   2 2 2   2 2:
             $ hbd $
             @ hbd 
        firstending = 
             " ^ 4 4 3 1 3 2"
             :   1 1 2 2 2 4:
             $ hbd $
             @ hbd
        secondending = 
             " ^ 4 4 3 1 2 1"
             : firstending:
             $ hbd $
             @ hbd
        lineone =
             " one two three firstending one two three secondending "
             : one two three firstending one two three secondending :
             $ hbd $
             @ hbd
        linetwo =
             " lineone + 2"
             : lineone :
             $ lineone $
             @ lineone
        piano = 
             lineone
        harp =
             lineone & linetwo
        c =
            " 1 3 5 3 5 3 "
            : 1 1 1 1 1 1 :
            $ hbd $
            @ hbd
        g =
            " c - 3 "
            : c :
            $ c $
            @ c
        f =
            " c + 3 "
            : c :
            $ c $
            @ c
        dm = 
            " c + 1 "
            : c :
            $ c $
            @ c
        stop =
            " 0 "
            : 2 :
            $ c $
            @ c
        aguitar =
             stop.c.g.g.c.c.f.dm.g.c.g.g.c.c.f.g.c
        drumscale =
             " 1 "
             : 1 :
             $ 37 41 43 $
             @ 0
        lefthand =
             " 0 2 "
             : 6 6 :
             $ drumscale $
             @ drumscale
        foot =
             " 1 1 1 1"
             : 5 2 4 1:
             $ drumscale $
             @ drumscale
        righthand =
             " 3 3 3 3 3 3 3"
             : 2 2 2 2 1 1 2:
             $ drumscale $
             @ drumscale
        bar =
             lefthand & righthand & foot
        fourbars =
             bar.bar.bar.bar
        drums =
             stop.fourbars.fourbars'

compile(happy_birth_day)


happy_birth_day2 = '

        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 = hbd except
             " one two three firstending one two three secondending "
             : one two three firstending one two three secondending :

        linetwo = lineone except
             " lineone + 2"

        harp = lineone

        piano = lineone & linetwo

        c = hbd except
            " 1 3 5 3 5 3 "
            : 1 1 1 1 1 1 :

        g = c except
            " c - 3 "

        f = c except
            " c + 3 "

        dm =  c except
            " c + 1 "

        stop = c except
            " 0 "
            : 2 :

        aguitar = stop.c.g.g.c.c.f.dm.g.c.g.g.c.c.f.g.c

        drumscale =
             " 1 "
             : 1 :
             $ 37 41 43 $
             @ 0

        lefthand = drumscale except
             " 0 2 "
             : 6 6 :

        foot = drumscale except
             " 1 1 1 1"
             : 5 2 4 1:

        righthand = drumscale except
             " 3 3 3 3 3 3 3"
             : 2 2 2 2 1 1 2:

        bar = lefthand & righthand & foot

        fourbars = bar.bar.bar.bar

        drums = stop.fourbars.fourbars
'

compile(happy_birth_day2)

ff = 'x =
        " 0 0 0 0 "
        : 1 1 1 1 :
        $ 1 3 5 6 8 10 12 13 $
        @ 48
      oneup =
           " 1 2 3 5 "
           : x :
           $ x $
           @ x
      onedown =
           " ^ 1 v 5 3 2 "
           : x :
           $ x $
           @ x
      twoup =
           " v 6 ^ 1 4 5 "
           : x :
           $ x $
           @ x
      twodown =
           " 6 5 4 1 "
           : x :
           $ x $
           @ x
      threeup =
           " 1 3 5 7 "
           : x :
           $ x $
           @ x
      threedown =
           " ^ 1 v 7 5 3"
           : x :
           $ x $
           @ x         
      one =
           " oneup ^ oneup ^ oneup ^ oneup onedown v onedown v onedown v onedown "
           : oneup   oneup   oneup   oneup onedown   onedown   onedown   onedown :
           $ x $
           @ x
      two =
           " one - 2 "
           : one :
           $ one $
           @ one
      three =
          " twoup ^ twoup ^ twoup ^ twoup twodown v twodown v twodown v twodown "
          : twoup   twoup   twoup   twoup twodown   twodown   twodown   twodown :
          $ x $
          @ x
      four =
          " three + 1 "
          : three :
          $ three $
          @ three
      five =
          " threeup ^ threeup ^ threeup ^ threeup threedown v threedown v threedown v threedown "
          : threeup   threeup   threeup   threeup threedown   threedown   threedown   threedown :
          $ x $
          @ x - 4
      six =
          " five "
          : five :
          $ five $
          @ five + 2
      harp =
           one.two.one.two.three.four.five.six'

compile(ff)


ff2 = '
      x =
        " 0 0 0 0 "
        : 1 1 1 1 :
        $ 1 3 5 6 8 10 12 13 $
        @ 48

      oneup = x except
           " 1 2 3 5 "

      onedown = x except
           " ^ 1 v 5 3 2 "

      twoup = x except
           " v 6 ^ 1 4 5 "

      twodown = x except
           " 6 5 4 1 "

      threeup = x except
           " 1 3 5 7 "

      threedown = x except
           " ^ 1 v 7 5 3"
       
      one = x except
           " oneup ^ oneup ^ oneup ^ oneup onedown v onedown v onedown v onedown "
           : oneup   oneup   oneup   oneup onedown   onedown   onedown   onedown :

      two = one except
           " one - 2 "

      three = x except
          " twoup ^ twoup ^ twoup ^ twoup twodown v twodown v twodown v twodown "
          : twoup   twoup   twoup   twoup twodown   twodown   twodown   twodown :

      four = three except
          " three + 1 "

      five = 
          " threeup ^ threeup ^ threeup ^ threeup threedown v threedown v threedown v threedown "
          : threeup   threeup   threeup   threeup threedown   threedown   threedown   threedown :
          $ x $
          @ x - 4

      six = five except
          @ five + 2

      harp =
           one.two.one.two.three.four.five.six'

compile(ff2)