#lang transd

MainModule: {
    _start: (λ
        (with fs FileStream() words String()
            (open-r fs "/mnt/proj/tmp/unixdict.txt")
            (textin fs words)
            ( -|
               (split words)
               (group-by (λ s String() -> String() (sort (cp s))))
               (regroup-by (λ v Vector<String>() -> Int() (size v)))
               (max-element)
               (snd)
               (textout)
            )
     ))
}