#lang transd

MainModule: {
_start: (lambda
    (with fs FileStream() len 0 maxlen 0 words Vector<String>()
        (open-r fs "/mnt/vault/tmp/unixdict.txt") )

        (for w in (read-lines fs) do
            (= len (size w))
            (if (< len maxlen) continue)
            (if (is-sorted w)
                (if (< maxlen len)
                    (clear words) (= maxlen len))
                (append words w)
        ))
        (lout words)
))

}