adamc@397: structure I = struct adamc@397: type t = int adamc@398: val toString = show _ adamc@398: val fromString = read _ adamc@397: end adamc@397: adamc@397: structure S = struct adamc@397: type t = string adamc@398: val toString = show _ adamc@398: val fromString = read _ adamc@397: end adamc@397: adamc@397: structure IL = ListFun.Make(I) adamc@397: structure SL = ListFun.Make(S) adamc@397: adamc@397: fun main () = return adamc@397: Pick your poison:
adamc@397:
  • Integers
  • adamc@397:
  • Strings
  • adamc@397: