prog: ignore(spaces) loop: parse(line)\loop parse(( = {*} )); line: ( name | * = {} | seqns ); name: <>> ignore(none) smark string(nonl) scopy * ( [f>0?] = {} | = {*} ) [f=0] = { 1 2 <: > }; seqns: smark string(nonl) scopy * [f=0]; none: <<>>; nonl: !<< >>; spaces: << >>; f: 1;