let (/) (a:string) (b:string) = a^"/"^b;;