I use this!
 in_:=ord('i')*64+ord('n');
 out_:=ord('o')*4096+ord('u')*64+ord('t');
 on_:=ord('o')*64+ord('n');
 put_:=ord('p')*4096+ord('u')*64+ord('t');
 e_:=ord('e');

then you can do 'If' operation in o(1) time, so i get ac in 0.314
when i use strings i got TL!