(*
* @LANG: ocaml
* @GENERATED: true
*)

let top = ref 0
let stack = Array.make 32 0
let target = ref 0






let _ncall1_trans_keys : int array = [|
1; 0; 10; 10; 6; 6; 10; 10; 8; 8; 5; 5; 4; 4; 7; 7; 6; 6; 5; 5; 9; 9; 11; 11; 7; 7; 0; 3; 1; 0; 1; 0; 1; 0; 0 ; 
|]
let _ncall1_char_class : int array = [|
0; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 2; 3; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 4; 5; 1; 1; 1; 1; 1; 1; 1; 1; 6; 7; 1; 1; 1; 8; 9; 10; 1; 11; 0 ; 
|]
let _ncall1_index_offsets : int array = [|
0; 0; 1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 16; 16; 16; 0 ; 
|]
let _ncall1_indicies : int array = [|
0; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 1; 14; 15; 0 ; 
|]
let _ncall1_index_defaults : int array = [|
0; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 0 ; 
|]
let _ncall1_trans_cond_spaces : int array = [|
-1; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; 0 ; 
|]
let _ncall1_cond_targs : int array = [|
2; 0; 3; 4; 5; 6; 14; 8; 9; 15; 11; 12; 16; 13; 13; 13; 0 ; 
|]
let _ncall1_cond_actions : int array = [|
0; 0; 0; 0; 0; 0; 0; 0; 0; 1; 0; 0; 2; 0; 3; 4; 0 ; 
|]
let _ncall1_nfa_targs : int array = [|
0; 0 ; 
|]
let _ncall1_nfa_offsets : int array = [|
0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0 ; 
|]
let _ncall1_nfa_push_actions : int array = [|
0; 0 ; 
|]
let _ncall1_nfa_pop_trans : int array = [|
0; 0 ; 
|]
let ncall1_start  : int  = 13
let ncall1_first_final  : int  = 13
let ncall1_error  : int  = 0
let ncall1_en_unused  : int  = 1
let ncall1_en_one  : int  = 7
let ncall1_en_two  : int  = 10
let ncall1_en_main  : int  = 13
let exec data = 
let buffer = String.create(1024) in 
let blen :int ref = ref 0 in
let cs = ref 0 in
let p = ref 0 in
let pe = ref (String.length data) in
begin
	cs  := ncall1_start;
	top  := 0;
	
end;
begin
	let _trans  : int  ref = ref 0 in
	let _have  : int  ref = ref 0 in
	let _cont  : int  ref = ref 1 in
	let _keys : int ref = ref 0 in
	let _inds : int ref = ref 0 in
	while _cont.contents= 1  do
	begin
		if cs.contents= 0  then
		begin
			_cont  := 0;
			
		end
		;_have  := 0;
		if p.contents= pe.contents then
		begin
			begin
				if _have.contents= 0  then
				begin
					_cont  := 0;
					
				end
				;
			end;
			
		end
		;if _cont.contents= 1  then
		begin
			begin
				if _have.contents= 0  then
				begin
					begin
						_keys  := ( cs.contents lsl 1 );
						_inds  := _ncall1_index_offsets.(cs.contents);
						if ( Char.code data.[p.contents] )<= 119 && ( Char.code data.[p.contents] )>= 10  then
						begin
							begin
								let _ic  : int  ref = ref _ncall1_char_class.(( Char.code data.[p.contents] )- 10) in
								if _ic.contents<= _ncall1_trans_keys.( _keys.contents+1  )&& _ic.contents>= _ncall1_trans_keys.( _keys.contents ) then
								begin
									_trans  := _ncall1_indicies.( _inds.contents+ ( _ic.contents- _ncall1_trans_keys.( _keys.contents ) ) );
									
								end
								else
								begin
									_trans  := _ncall1_index_defaults.(cs.contents);
									
								end
								;
							end;
							
						end
						else
						begin
							begin
								_trans  := _ncall1_index_defaults.(cs.contents);
								
							end;
							
						end
						;
					end;
					
				end
				;if _cont.contents= 1  then
				begin
					begin
						cs  := _ncall1_cond_targs.(_trans.contents);
						if _ncall1_cond_actions.(_trans.contents) = 1  then
						begin
							begin
								print_string( "one\n" );
								begin
									top := top.contents - 1;
									cs  := stack.(top.contents);
									
								end;
								
								
							end;
							
						end
						else if _ncall1_cond_actions.(_trans.contents) = 2  then
						begin
							begin
								print_string( "two\n" );
								begin
									top := top.contents - 1;
									cs  := stack.(top.contents);
									
								end;
								
								
							end;
							
						end
						else if _ncall1_cond_actions.(_trans.contents) = 3  then
						begin
							begin
								target := 7;
								begin
									Array.set stack top.contents cs.contents;top  := top.contents + 1;
									cs  := (target.contents);
									
								end;
								
								
							end;
							
						end
						else if _ncall1_cond_actions.(_trans.contents) = 4  then
						begin
							begin
								target := 10;
								begin
									Array.set stack top.contents cs.contents;top  := top.contents + 1;
									cs  := (target.contents);
									
								end;
								
								
							end;
							
						end
						;
						if cs.contents= 0  then
						begin
							_cont  := 0;
							
						end
						;if _cont.contents= 1  then
						begin
							p  := p.contents + 1;
							
						end
						;
					end;
					
				end
				;
			end;
			
		end
		;
	end;
	
	done;
	
end;
if !cs >= ncall1_first_final then
print_string "ACCEPT\n"
else
print_string "FAIL\n"
;;

let () =
exec "1one2two1one\n";
()
;;