#lang transd

MainModule : {
    a: 1.2,
    b: 0.03,

    safeAdd: (λ d Double() e Double()
                 (ret [(decr (+ d e)), (incr (+ d e))])),

    _start: (λ
       (lout "(+ " a " " b ") is in the range: " prec: 20 (safeAdd a b))
    )
}