: a 2 -1 do dup 0 do over dup i + c@ swap c@ over 2dup > -rot < - j = if emit 0
then drop loop loop ; pad dup 300 stdin read-file + a