'BEGIN'
    'PROCEDURE' P(A);
    'REAL' A: ;
    P(1.0)
'END'