pcom %1.p4 < %1.pas 
pint %1.p4 %1.out