#!/usr/bin/env nujel
[defn reverse-num [a]
[def ret 0]
[while [> a 0]
[set! ret [* ret 10]]
[set! ret [+ ret [rem a 10]]]
[set! a [div/int a 10]]]
[return ret]]
[defn palindrome? [a]
[== a [reverse-num a]]]
[def max 0]
[dotimes [a 1000]
[dotimes [b 1000]
[def p [* a b]]
[when [and [palindrome? p]
[> p max]]
[set! max p]]]]
[when [not= max 906609]
[throw [list :wrong-result "Wrong result" max]]]
[return :success]
