RosettaCodeData/Task/Terminal-control-Unicode-output/Mathematica/terminal-control-unicode-output.math

If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]]
->田
	`If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]]`
	`->田`