%begin
%recordformat f(%integer i,j,k,%integername line,length)
%record(f) spacea,spaceb
%record(f) %name worka,workb
%integer i,j,x
       i=3; j=4
worka==spacea; workb==spaceb
worka_line==i
workb_length==j
       x=i+4+worka_line*workb_length
%if x=19 %then printstring("TEST OK") %else printstring("Failed")
%endofprogram