: a { s n } 2 -1 do n 0 do s i + c@ s c@ over 2dup > -rot < - j = if emit 0
then drop loop loop ; stdin slurp-fid a