#lang transd

MainModule: {
    code: "(+ 5 x)",

    _start: (lambda (textout
        (- (to-Int (with x 100 (snd (eval code))))
           (to-Int (with x 1 (snd (eval code)))))
        ))
}