RosettaCodeData/Task/Babbage-problem/Transd/babbage-problem.transd

#lang transd

MainModule : {
    rem: 269696,

    _start: (lambda
        (with n (to-Int (sqrt rem))
            (while (neq (mod (pow n 2) 1000000) rem) (+= n 1))
            (lout n)
    )   )
}