{* this is a comment {{ }
procedure demo
begin
  y = 3*x+4.58 * 1p.4;
  do j = 1 to 5
    y = y + j
end
