/pliant/graphic/misc/int.pli
 
 1  function bound i mini maxi -> b 
 2    arg Int mini maxi b 
 3    := shunt i<mini mini i>maxi maxi i 
 4   
 5  export bound