begin
  routine r
  end
  routine r1(integer p1)
  end
  routine r2(integer p1,p2)
  end
  routine r3(integer p1,p2,p3)
  end
  r
  r1(123)
  r2(23,34)
  r3(34,45,56)
endofprogram