when others =>
							token := less_than;
					end case;
				when '>' =>
					next_ch;
					case ch is
						when '=' =>
							token := gr_eq_to;
							next_ch;
						when '>' =>
							token := close_label;
							next_ch;
						when other