e_expr :: Parser (AST' Text)
plate_expr =
    reserved "plate"
    *> (Plate
        <$> identifier
        <*  symbol "of"
        <*> expr
        <*> semiblockExpr
        )

ch
plate_expr :: Parser (AST' Text)
plate_expr =
    reserved "plate"
    *> (Plate
        <$> identifier
        <*  symbol "of"
        <*> expr
        <*> semiblockExpr
        )
plate_expr =
    reserved "plate"
    *> (Plate
        <$> identifier
        <*  symbol "of"
        <*> expr
        <*> semiblockExpr
        )