let
	var c : Character
in
	begin
		getchr(c);
		putchr(c)
	end