[ $ "BOXKDQCPNAGTRETGQDFS"
  $ "JWHUVIANOBERFSLYPCZM"
  join ] constant          is blocks        (     --> $ )

[ -2 &
  tuck pluck drop
  swap pluck drop ]        is remove2       ( $ n --> $ )

[ iff [ say "True" ]
  else [ say "False" ] ]   is echotruth     (   b -->   )

[ true blocks rot
  witheach
    [ upper over find
      2dup swap found
      iff remove2
      else
        [ drop dip not
          conclude ] ]
  drop echotruth ]        is can_make_word (   $ -->   )