-- keywords = ["assign", "deref", "new", "while", "ifzero"]

-- keyword :: Parser String
-- keyword = choice $ map string keywords

ident :: Parser String
ident = (:) <$> letter <*> many alphaNum
ident :: Parser String
ident = (:) <$> letter <*> many alphaNum
ident = (:) <$> letter <*> many alphaNum