let hd = List.hd