tok :: Parser a -> Parser a
tok p = do
    skipSpace
    x <- p
    skipSpace
    return x
tok :: Parser a -> Parser a
tok p = do
    skipSpace
    x <- p
    skipSpace
    return x
tok p = do
    skipSpace
    x <- p
    skipSpace
    return x