program TLisp;

var s: string;

{ Read }
procedure GetChar;
begin
 Readln(s);
end;

{print}
procedure print(s:string);
begin
 write(s);
end;

{eval}
procedure eval( var s:string);
begin
 if s='q' then
  halt;
end;

{ Main Program }

begin
 while true do
  begin
   print('TLisp>');
   GetChar;
   eval(s);
   print(s);
   print(#10);
  end;
end.