Блять ну каким же нужно быть долбоёбом чтоб что-то подобное напрограммировать:
λ> readInt "10" Just 8