(%stdin)(r)file 700 string readstring 11 1 127{0 3 index{2 index eq{1
add}if}forall dup 0 gt{( : )dup 0 4 index put print dup 9 le{( )print}if =[}if
def}for