%begin
  %integerfn fred(%integer i, j, k)
    %result = i+j+k
  %end
  %integer q
  q = fred (1, 2, 3)
  q = fred (fred(1, 2, 3), 4, 5)
  q = fred (1, fred(2,3,4), 5)
  q = fred (1, 2, fred(3,4,5))
  q = fred (fred(1,2,3), fred(4,5,6), 7)
  q = fred (fred(1,2,3), 4, fred(5,6,7))
  q = fred (1, fred(2,3,4), fred(5,6,7))
  q = fred (fred(1,2,3), fred(4,5,6), fred(7,8,9))
%endofprogram