gistfile1.txt

revdigits x  = go x 0
  where go k r
          | k == 0 = r
          | otherwise = go d (10*r+m)
            where (d, m) = k `quotRem` 10

isPalin x = id x == revdigits x