#lang transd

MainModule: {
_start: (λ (with fs FileStream()
    (open-r fs "/mnt/vault/tmp/unixdict.txt") )
    (with v ( -|
        (read-text fs)
        (split)
        (group-by (λ s String() -> String()
            (ret (min s (reverse (cp s))))))
        (values)
        (filter where: (λ v Vector<String>() (ret (== (size v) 2))))
        (shuffle))

        (lout "Total number of semordnilaps: " (size v))
        (lout "Random five: " Range(in: v 0 5))))
)
}