val index : 'a -> 'a list -> int;;
val flat : 'a list list -> 'a list;;
val subtract : 'a list -> 'a list -> 'a list;;
val make_set : 'a list -> 'a list;;
val except_nth : 'a list -> int -> 'a list;;