var s: String;
    i, v: Integer;

BEGIN
    readln (s);
    if s = 'print' then begin
        readln (s);
        readln (s);
        for i := 1 to Length (s) do
            write (ord (s[i]), ' ');
    end else begin
        while not seekeof do begin
            read (v);
            write (chr (v));
        end;
    end;
END.