Script started on Wed Dec 5 12:48:05 1990 barassie% njml Standard ML of New Jersey, Version 0.44a, 13 December 1989 val it = () : unit - fun choose f = if f < 0 = then fn e:int => e*e = else fn e:int => e+e; val choose = fn : int -> int -> int - choose ~1 5; val it = 25 : int - choose 1 5; val it = 10 : int -