RosettaCodeData/Task/Increment-a-numerical-string/Haskell/increment-a-numerical-string-4.hs

(show . succ) (read "1234" :: Int)