#lang transd

MainModule: {
    _start: (λ locals: cnt 0
        (with fs FileStream() words String()
            (open-r fs "/mnt/text/Literature/Miserables.txt")
            (textin fs words)

            (with v ( -|
                (split (tolower words))
                (group-by)
                (regroup-by (λ v Vector<String>() -> Int() (size v))))

            (for i in v :rev do (lout (get (get (snd i) 0) 0) ":\t " (fst i))
                (+= cnt 1) (if (> cnt 10) break))
    )))
}