AZ
Size: a a a
AZ
e
SP
e
AZ
SP
AZ
SP
AZ
SP
EG
AZ
e
AZ
AZ
EG
AZ
parseCommand : String -> Maybe Command
parseCommand text =
case span (/= ' ') (toLower text) of
("add", args) => pure $ Add (ltrim args)
("get", args) => Get <$> parseInteger args
("quit", _) => pure Quit
_ => Nothing
EG
EG
AZ