0 2 23
a
b
( lparen 
a name 
== compop 
1 pic 
? condop 
1 pic 
: condsep 
1 pic 
- numop 
1 pic 
) rparen 
+ numop 
( lparen 
b name 
< compop 
10 pic 
? condop 
1 pic 
: condsep 
1 pic 
- numop 
1 pic 
) rparen