call build grammar
call drawit
read layoutinstruct
gi b 1 " p $u 500 ; o $u 500 ;  state $u primed"
gi b 2 " call instantiate $u"
gi r -53 -9
