some v = (:) <$> v <*> many v
many v = some v <|> pure []
>>> Nothing <|> Just 42 Just 42
>>> [1, 2] <|> [3, 4] [1,2,3,4]
>>> empty <|> print (2^15) 32768