let (&) f g = f g

let rec subseq = function
  | [] -> [""]
  | h::t -> List.append (subseq t) & List.map (fun x -> h ^ x) (subseq t)