(%stdin)(r)file 127 string readline pop{dup 48 eq{28}if dup 49 eq{( )dup 0 4
index 169 mul 56 idiv count add 59 sub put print clear}if}forall