let parse = function
         | [[x]] -> 1
         | [h :: t] -> 0
         | _ -> (-1)