#lang transd

MainModule : {
    _start: (λ
        (with fs FileStream() words String()
            (open-r fs "D:\\Temp\\wordlist.txt")
            (for line in (read-lines fs) do
               (with days (split line " ") len 0
                  (for w in days do (for y in days do
                    (if (neq w y) (= len (max len (coincide w y))))))
                  (lout (+ len 1) " " days))
   )   )   )
}