keyword :: Parser ([String], [TaggedAToken])
keyword = withToken $ \t ->
    case t of
        ATokKeyword ns ts -> Just (ns, ts)
        _ -> Nothing
keyword :: Parser ([String], [TaggedAToken])
keyword = withToken $ \t ->
    case t of
        ATokKeyword ns ts -> Just (ns, ts)
        _ -> Nothing
keyword = withToken $ \t ->
    case t of
        ATokKeyword ns ts -> Just (ns, ts)
        _ -> Nothing