open Core.Std

let path = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/bin"

    String.split ~on:':' path
           |> List.dedup ~compare:String.compare
           |> List.iter ~f:print_endline