#lang transd

MainModule: {
    _start: (λ
        (with s "alphaBETA"
            (lout (toupper s))
            (lout (tolower s)))
    )
}