r n = rconcat n 0 rconcat inv outv = if inv == 0 then outv else rconcat (div inv 10) (outv * 10 + mod inv 10) ispal n = r n == n hpal n = if ispal n then 0 else 1 + hpal (n + r n)
