d = do a <- many1 digit
           char ' '
           return (read a::Int)

fi
field = do a <- many1 digit
           char ' '
           return (read a::Int)
field = do a <- many1 digit
           char ' '
           return (read a::Int)