y_expr :: Parser (AST' Text)
array_expr =
    reserved "array"
    *> (Array
        <$> identifier
        <*  symbol "of"
        <*> expr
        <*> semiblockExpr
        )

ar
array_expr :: Parser (AST' Text)
array_expr =
    reserved "array"
    *> (Array
        <$> identifier
        <*  symbol "of"
        <*> expr
        <*> semiblockExpr
        )
array_expr =
    reserved "array"
    *> (Array
        <$> identifier
        <*  symbol "of"
        <*> expr
        <*> semiblockExpr
        )