begin
  integerfn sigval
    result = 8
  end
  
  routine report(integer a, b, c)
  end
  
  constinteger internerr = 23, fail = 7
  integer item = 43
  
  report(internerr,0,6) and signal fail if item <= 0

  signal 9, sigval
  
endofprogram