begin
  integer i
  
  routine paramless routine
  end

  integerfn paramless function
    result = 42
  end

  paramless routine

  i = paramless function

  paramless routine

  i = paramless function + 1

  paramless routine

  i = 2 + paramless function
  
  paramless routine

endofprogram