4.3BSD/usr/contrib/icon/port/pret1.icn

#  This program tests lib/pret.s.

procedure main()
   write(max(3,4))
   write(max(4,3))
end

procedure max(i,j)
   return if i > j then i else j
end