(procedure                                                                     /* AST (R-5) */
    (name 'Add')
    (type (' T_INTEGER T_FLOAT)))
    (arguments 
        ((name 'A1') (type (' T_INTEGER T_FLOAT)))
        ((name 'A2') (type (' T_INTEGER T_FLOAT)))
    )
    (body 
        (return (add 'A1' 'A2'))
    )
)
