return function and palindrom function still to write.
@@ -0,0 +1,8 @@
+r _ = 1
+
+ispal n = True
+hpal n =
+ if ispal n
+ then 0
+ else 1 + hpal (n + r n)