sig module Tokens : Map.S val tokenise : string -> int Tokens.t val vectorise : int Tokens.t -> int Tokens.t -> int list * int list val cosine_similarity : int list -> int list -> float end