unfinished
nocheck
notime
notespacing *1.5

draw box 
  -2 headleft sub accleft sub stembottom 1.3 sub moveto
  stemtop stembottom sub 2.6 add dup 0 exch rlineto
  headleft headright add 4 add accleft add dup 0 rlineto exch
  0 exch neg rlineto
  neg 0 rlineto
  stroke 
enddraw

draw bra
  -2 headleft sub accleft sub headbottom linebottom add moveto
  -2 0 rlineto
  -4 headleft sub accleft sub headtop linetop sub lineto
   2 0 rlineto
   stroke
enddraw

[stave 1 treble 1]
[draw box] $a                
[draw box] f'
[draw box] (fg)
[space 10]
[draw box] (f'g')
[space 6]
[draw bra] (#fc')
[draw bra] (g#d')     








