[([){exch put}/b{length 1 sub}(]){dup}/c{(%stdin)(r)file 99 string readline{]]]0 get exch]]]b get 0[b[= c}if}>>begin c