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