import Data.List
import Data.Function
import Text.Read
import Data.Maybe
import Data.Char


all_numbers :: String -> [Int]
all_numbers =
  mapMaybe (readMaybe :: String -> Maybe Int) .
  groupBy ((==) `on` isDigit)