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

((show :: Integer -> String) . succ . read) "1234"