OCaml
greedy