RosettaCodeData/Task/Closures-Value-capture/Standard-ML/closures-value-capture-1.ml

List.map (fn x => x () )  ( List.tabulate (10,(fn i => (fn  ()=> i*i)) ) ) ;