case (reads s :: [(Int, String)]) of
[] -> []
(x,leftover):_ -> go x leftover
where
go :: Int -> String -> [(Maskbits, String)]
case (reads s :: [(Int, String)]) of
[] -> []
(x,leftover):_ -> go x leftover
where
go :: Int -> String -> [(Maskbits, String)]