module Sublist

type Sublist = Equal | Sublist | Superlist | Unequal

let sublist xs ys = failwith "You need to implement this function."