//
option 9 0x10;
PROC main;
	$1 = '!"#$%&''()=~|-^\\`{@[+*};:]<>?_,./ \\';
	f('Z','H');
	$1 = '辈炒刀犯购患骄坷谅媚牌侨墒颂臀闲岩釉舱粗棕仝圮';
	f('Z','H');
	$1 = '掇忿皋罐恨晦嫁睫巨哭擂赁罗棉霓兽宿剔娃无蔬诉踢瓦芜Ж┆';
	f('Z','H');
	$1 = '傾僀僂僄僆僇僉僋働僐僒僔僗僙僜僞僠僣僥僩僫僯僰僱僲僴僸僼僿儂儅儈儉儊儌儎儛儐儜儓儔儕儖儗儘儚儝儞';
	f('H','Z');
	$1 = '僈僊僌僎僑僓僕僘僛僝僟僡僤僨僪僶價僽儀儃僷僺僾儁億傽傿僁僃僅僢償儠儢乕乗乚';
	f('H','Z');
	$1 = '両乭仈亹亾仌乫乮乯亖乣乥亅丱亸丮乷仐乵亄仏乸丟丗乶亙亜丠丵丆丏乛丂亸';
	f('H','Z');
	
	RETURN $ERROR;
END PROC;

function f(p1,p2);
	print $1;
	$2 = $1 TO p1;
	print p1 $2;
	$3 = $2 TO p2;
	print p2 $3;
	RETURN $ERROR;
end function;
