# CROASCII (YUS|HRN) B1.002:1982
# conversion to ISO-8859-2

sub croascii {
	my $out = "";
	foreach (@_) {
#		tr/^~]}\|[{@`/⺾✽唦往挽/;	# B1.002:1982
		tr/^\~]}\|[{@\`/⺾✽蟨鼎凝/;	# Crolist croascii
		$out .= $_;
	}
	return $out;
}

1;
