program cheat(input,output);

type tagt = 1..3;

var b: record case tag:tagt of
	      1: ( a:packed array [0..31] of boolean );
	      2: ( s:set of 0..31 );
	      3: ( i:integer )
       end;
    i, j:integer;
begin
   for i:= 0 to 31 do
   begin b.s := [i];
	 write( i:2, ' ', b.i:11, ' ');
	 for j:= 31 downto 0 do
	    if b.a[j] then write('T') else write('-');
	 writeln
   end
end.