let head = List.hd