RosettaCodeData/Task/Flatten-a-list/Standard-ML/flatten-a-list-2.ml

fun flatten (L  x) = [x]
  | flatten (N xs) = List.concat (map flatten xs)
	`fun flatten (L x) = [x]`
	`\| flatten (N xs) = List.concat (map flatten xs)`