Source code in the transd programming language

#lang transd

MainModule: {
    _start:(λ locals: a BigLong(5) ss StringStream() s ""
        (textout to: ss (pow a (pow 4 (pow 3 2))))
        (= s (str ss))
        (with len (size s)
            (lout "The number of digits is: " len)
            (lout (sub s 0 20) " ... " (sub s (- len 20))))
    )
}