chunk :: Parser String
chunk = withToken $ \t ->
    case t of
        ATokChunk s -> Just s
        _ -> Nothing
chunk :: Parser String
chunk = withToken $ \t ->
    case t of
        ATokChunk s -> Just s
        _ -> Nothing
chunk = withToken $ \t ->
    case t of
        ATokChunk s -> Just s
        _ -> Nothing