let ident input =
    match input.token with
      | Id a -> skip input ; a
      | _ -> error input "Missing identifier"