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