/mt { set %mt $replace($1-,_,$chr(190)) set %mt2 $replace($1-,_,$chr(190)) set %mt3 $replace($1-,_,$chr(190)) set %mt4 $replace($1-,_,$chr(190)) set %mt5 $replace($1-,_,$chr(190)) %mt = $replace(%mt,1,       ) %mt = $replace(%mt,2,       ) %mt = $replace(%mt,3,       ) %mt = $replace(%mt,4,       ) %mt = $replace(%mt,5,       ) %mt = $replace(%mt,6,       ) %mt = $replace(%mt,7,       ) %mt = $replace(%mt,8,       ) %mt = $replace(%mt,9,       ) %mt = $replace(%mt,0,       ) %mt = $replace(%mt,A,       ) %mt = $replace(%mt,B,       ) %mt = $replace(%mt,C,       ) %mt = $replace(%mt,D,       ) %mt = $replace(%mt,E,      ) %mt = $replace(%mt,F,      ) %mt = $replace(%mt,G,       ) %mt = $replace(%mt,H,        ) %mt = $replace(%mt,I,     ) %mt = $replace(%mt,J,       ) %mt = $replace(%mt,K,       ) %mt = $replace(%mt,L,        ) %mt = $replace(%mt,M,        ) %mt = $replace(%mt,N,       ) %mt = $replace(%mt,O,       ) %mt = $replace(%mt,P,       ) %mt = $replace(%mt,Q,        ) %mt = $replace(%mt,R,        ) %mt = $replace(%mt,S,       ) %mt = $replace(%mt,T,       ) %mt = $replace(%mt,U,        ) %mt = $replace(%mt,V,         ) %mt = $replace(%mt,W,        ) %mt = $replace(%mt,X,        ) %mt = $replace(%mt,Y,         ) %mt = $replace(%mt,Z,       ) %mt = $replace(%mt,`,    ) %mt = $replace(%mt,~,         ) %mt = $replace(%mt,!,    ) %mt = $replace(%mt,@,         ) %mt = $replace(%mt,$chr(35),            ) %mt = $replace(%mt,%,       ) %mt = $replace(%mt,^,           ) %mt = $replace(%mt,&,         ) %mt = $replace(%mt,*,         ) %mt = $replace(%mt,$chr(40),      ) %mt = $replace(%mt,$chr(41),      ) %mt = $replace(%mt,-,      ) %mt = $replace(%mt,$chr(190),         ) %mt = $replace(%mt,=,        ) %mt = $replace(%mt,+,       ) %mt = $replace(%mt,[,    ) %mt = $replace(%mt,],    ) %mt = $replace(%mt,$chr(123),      ) %mt = $replace(%mt,$chr(125),      ) %mt = $replace(%mt,;,    ) %mt = $replace(%mt,:,    ) %mt = $replace(%mt,',    ) %mt = $replace(%mt,",      ) %mt = $replace(%mt,$chr(44),    ) %mt = $replace(%mt,.,    ) %mt = $replace(%mt,<,          ) %mt = $replace(%mt,>,          ) %mt = $replace(%mt,/,       ) %mt = $replace(%mt,?,       ) %mt = $replace(%mt,|,     ) %mt = $replace(%mt,\,       ) %mt = $replace(%mt,$,   |    ) %mt = $replace(%mt,$chr(32),     ) %mt = $replace(%mt,•,       ) %mt = $replace(%mt,,              ) %mt = $replace(%mt,¡,    ) %mt = $replace(%mt,¢,   |   ) %mt = $replace(%mt,¯,         ) %mt = $replace(%mt,°,       ) %mt = $replace(%mt,¿,       ) %mt = $replace(%mt,×,       ) %mt = $replace(%mt,Þ,       ) %mt = $replace(%mt,þ,       ) %mt = $replace(%mt,ß,        ) %mt = $replace(%mt,÷,       ) %mt = $replace(%mt,Æ,           ) say %mt mt2 } /mt2 { %mt2 = $replace(%mt2,1,       ) %mt2 = $replace(%mt2,2,       ) %mt2 = $replace(%mt2,3,       ) %mt2 = $replace(%mt2,4,       ) %mt2 = $replace(%mt2,5,       ) %mt2 = $replace(%mt2,6,       ) %mt2 = $replace(%mt2,7,       ) %mt2 = $replace(%mt2,8,       ) %mt2 = $replace(%mt2,9,       ) %mt2 = $replace(%mt2,0,       ) %mt2 = $replace(%mt2,A,       ) %mt2 = $replace(%mt2,B,       ) %mt2 = $replace(%mt2,C,       ) %mt2 = $replace(%mt2,D,       ) %mt2 = $replace(%mt2,E,      ) %mt2 = $replace(%mt2,F,      ) %mt2 = $replace(%mt2,G,       ) %mt2 = $replace(%mt2,H,        ) %mt2 = $replace(%mt2,I,     ) %mt2 = $replace(%mt2,J,       ) %mt2 = $replace(%mt2,K,       ) %mt2 = $replace(%mt2,L,        ) %mt2 = $replace(%mt2,M,        ) %mt2 = $replace(%mt2,N,       ) %mt2 = $replace(%mt2,O,       ) %mt2 = $replace(%mt2,P,       ) %mt2 = $replace(%mt2,Q,        ) %mt2 = $replace(%mt2,R,        ) %mt2 = $replace(%mt2,S,       ) %mt2 = $replace(%mt2,T,       ) %mt2 = $replace(%mt2,U,        ) %mt2 = $replace(%mt2,V,         ) %mt2 = $replace(%mt2,W,        ) %mt2 = $replace(%mt2,X,        ) %mt2 = $replace(%mt2,Y,         ) %mt2 = $replace(%mt2,Z,       ) %mt2 = $replace(%mt2,`,    ) %mt2 = $replace(%mt2,~,         ) %mt2 = $replace(%mt2,!,    ) %mt2 = $replace(%mt2,@,         ) %mt2 = $replace(%mt2,$chr(35),            ) %mt2 = $replace(%mt2,%,       ) %mt2 = $replace(%mt2,^,           ) %mt2 = $replace(%mt2,&,         ) %mt2 = $replace(%mt2,*,         ) %mt2 = $replace(%mt2,$chr(40),      ) %mt2 = $replace(%mt2,$chr(41),      ) %mt2 = $replace(%mt2,-,      ) %mt2 = $replace(%mt2,$chr(190),         ) %mt2 = $replace(%mt2,=,        ) %mt2 = $replace(%mt2,+,       ) %mt2 = $replace(%mt2,[,    ) %mt2 = $replace(%mt2,],    ) %mt2 = $replace(%mt2,$chr(123),      ) %mt2 = $replace(%mt2,$chr(125),      ) %mt2 = $replace(%mt2,;,    ) %mt2 = $replace(%mt2,:,    ) %mt2 = $replace(%mt2,',    ) %mt2 = $replace(%mt2,",      ) %mt2 = $replace(%mt2,$chr(44),    ) %mt2 = $replace(%mt2,.,    ) %mt2 = $replace(%mt2,<,          ) %mt2 = $replace(%mt2,>,          ) %mt2 = $replace(%mt2,/,       ) %mt2 = $replace(%mt2,?,       ) %mt2 = $replace(%mt2,|,     ) %mt2 = $replace(%mt2,\,       ) %mt2 = $replace(%mt2,$,   |    ) %mt2 = $replace(%mt2,$chr(32),     ) %mt2 = $replace(%mt2,•,       ) %mt2 = $replace(%mt2,,              ) %mt2 = $replace(%mt2,¡,    ) %mt2 = $replace(%mt2,¢,   |   ) %mt2 = $replace(%mt2,¯,         ) %mt2 = $replace(%mt2,°,       ) %mt2 = $replace(%mt2,¿,       ) %mt2 = $replace(%mt2,×,       ) %mt2 = $replace(%mt2,Þ,       ) %mt2 = $replace(%mt2,þ,       ) %mt2 = $replace(%mt2,ß,        ) %mt2 = $replace(%mt2,÷,       ) %mt2 = $replace(%mt2,Æ,           ) say %mt2 mt3 } /mt3 { %mt3 = $replace(%mt3,1,       ) %mt3 = $replace(%mt3,2,       ) %mt3 = $replace(%mt3,3,       ) %mt3 = $replace(%mt3,4,       ) %mt3 = $replace(%mt3,5,       ) %mt3 = $replace(%mt3,6,       ) %mt3 = $replace(%mt3,7,       ) %mt3 = $replace(%mt3,8,       ) %mt3 = $replace(%mt3,9,       ) %mt3 = $replace(%mt3,0,       ) %mt3 = $replace(%mt3,A,       ) %mt3 = $replace(%mt3,B,       ) %mt3 = $replace(%mt3,C,       ) %mt3 = $replace(%mt3,D,       ) %mt3 = $replace(%mt3,E,      ) %mt3 = $replace(%mt3,F,      ) %mt3 = $replace(%mt3,G,       ) %mt3 = $replace(%mt3,H,        ) %mt3 = $replace(%mt3,I,     ) %mt3 = $replace(%mt3,J,       ) %mt3 = $replace(%mt3,K,       ) %mt3 = $replace(%mt3,L,        ) %mt3 = $replace(%mt3,M,        ) %mt3 = $replace(%mt3,N,       ) %mt3 = $replace(%mt3,O,       ) %mt3 = $replace(%mt3,P,       ) %mt3 = $replace(%mt3,Q,        ) %mt3 = $replace(%mt3,R,        ) %mt3 = $replace(%mt3,S,       ) %mt3 = $replace(%mt3,T,       ) %mt3 = $replace(%mt3,U,        ) %mt3 = $replace(%mt3,V,         ) %mt3 = $replace(%mt3,W,        ) %mt3 = $replace(%mt3,X,        ) %mt3 = $replace(%mt3,Y,         ) %mt3 = $replace(%mt3,Z,       ) %mt3 = $replace(%mt3,`,    ) %mt3 = $replace(%mt3,~,         ) %mt3 = $replace(%mt3,!,    ) %mt3 = $replace(%mt3,@,         ) %mt3 = $replace(%mt3,$chr(35),            ) %mt3 = $replace(%mt3,%,       ) %mt3 = $replace(%mt3,^,           ) %mt3 = $replace(%mt3,&,         ) %mt3 = $replace(%mt3,*,         ) %mt3 = $replace(%mt3,$chr(40),      ) %mt3 = $replace(%mt3,$chr(41),      ) %mt3 = $replace(%mt3,-,      ) %mt3 = $replace(%mt3,$chr(190),         ) %mt3 = $replace(%mt3,=,        ) %mt3 = $replace(%mt3,+,       ) %mt3 = $replace(%mt3,[,    ) %mt3 = $replace(%mt3,],    ) %mt3 = $replace(%mt3,$chr(123),      ) %mt3 = $replace(%mt3,$chr(125),      ) %mt3 = $replace(%mt3,;,    ) %mt3 = $replace(%mt3,:,    ) %mt3 = $replace(%mt3,',    ) %mt3 = $replace(%mt3,",      ) %mt3 = $replace(%mt3,$chr(44),    ) %mt3 = $replace(%mt3,.,    ) %mt3 = $replace(%mt3,<,          ) %mt3 = $replace(%mt3,>,          ) %mt3 = $replace(%mt3,/,       ) %mt3 = $replace(%mt3,?,       ) %mt3 = $replace(%mt3,|,     ) %mt3 = $replace(%mt3,\,       ) %mt3 = $replace(%mt3,$,   |    ) %mt3 = $replace(%mt3,$chr(32),     ) %mt3 = $replace(%mt3,•,       ) %mt3 = $replace(%mt3,,              ) %mt3 = $replace(%mt3,¡,    ) %mt3 = $replace(%mt3,¢,   |   ) %mt3 = $replace(%mt3,¯,         ) %mt3 = $replace(%mt3,°,       ) %mt3 = $replace(%mt3,¿,       ) %mt3 = $replace(%mt3,×,       ) %mt3 = $replace(%mt3,Þ,       ) %mt3 = $replace(%mt3,þ,       ) %mt3 = $replace(%mt3,ß,        ) %mt3 = $replace(%mt3,÷,       ) %mt3 = $replace(%mt3,Æ,           ) say %mt3 mt4 } /mt4 { %mt4 = $replace(%mt4,1,       ) %mt4 = $replace(%mt4,2,       ) %mt4 = $replace(%mt4,3,       ) %mt4 = $replace(%mt4,4,       ) %mt4 = $replace(%mt4,5,       ) %mt4 = $replace(%mt4,6,       ) %mt4 = $replace(%mt4,7,       ) %mt4 = $replace(%mt4,8,       ) %mt4 = $replace(%mt4,9,       ) %mt4 = $replace(%mt4,0,       ) %mt4 = $replace(%mt4,A,       ) %mt4 = $replace(%mt4,B,       ) %mt4 = $replace(%mt4,C,       ) %mt4 = $replace(%mt4,D,       ) %mt4 = $replace(%mt4,E,      ) %mt4 = $replace(%mt4,F,      ) %mt4 = $replace(%mt4,G,       ) %mt4 = $replace(%mt4,H,        ) %mt4 = $replace(%mt4,I,     ) %mt4 = $replace(%mt4,J,       ) %mt4 = $replace(%mt4,K,       ) %mt4 = $replace(%mt4,L,       ) %mt4 = $replace(%mt4,M,        ) %mt4 = $replace(%mt4,N,       ) %mt4 = $replace(%mt4,O,       ) %mt4 = $replace(%mt4,P,       ) %mt4 = $replace(%mt4,Q,        ) %mt4 = $replace(%mt4,R,        ) %mt4 = $replace(%mt4,S,       ) %mt4 = $replace(%mt4,T,       ) %mt4 = $replace(%mt4,U,        ) %mt4 = $replace(%mt4,V,         ) %mt4 = $replace(%mt4,W,        ) %mt4 = $replace(%mt4,X,        ) %mt4 = $replace(%mt4,Y,         ) %mt4 = $replace(%mt4,Z,       ) %mt4 = $replace(%mt4,`,    ) %mt4 = $replace(%mt4,~,         ) %mt4 = $replace(%mt4,!,    ) %mt4 = $replace(%mt4,@,         ) %mt4 = $replace(%mt4,$chr(35),            ) %mt4 = $replace(%mt4,%,       ) %mt4 = $replace(%mt4,^,           ) %mt4 = $replace(%mt4,&,         ) %mt4 = $replace(%mt4,*,         ) %mt4 = $replace(%mt4,$chr(40),      ) %mt4 = $replace(%mt4,$chr(41),      ) %mt4 = $replace(%mt4,-,      ) %mt4 = $replace(%mt4,$chr(190),         ) %mt4 = $replace(%mt4,=,        ) %mt4 = $replace(%mt4,+,       ) %mt4 = $replace(%mt4,[,    ) %mt4 = $replace(%mt4,],    ) %mt4 = $replace(%mt4,$chr(123),      ) %mt4 = $replace(%mt4,$chr(125),      ) %mt4 = $replace(%mt4,;,    ) %mt4 = $replace(%mt4,:,    ) %mt4 = $replace(%mt4,',    ) %mt4 = $replace(%mt4,",      ) %mt4 = $replace(%mt4,$chr(44),    ) %mt4 = $replace(%mt4,.,    ) %mt4 = $replace(%mt4,<,          ) %mt4 = $replace(%mt4,>,          ) %mt4 = $replace(%mt4,/,       ) %mt4 = $replace(%mt4,?,       ) %mt4 = $replace(%mt4,|,     ) %mt4 = $replace(%mt4,\,       ) %mt4 = $replace(%mt4,$,   |    ) %mt4 = $replace(%mt4,$chr(32),     ) %mt4 = $replace(%mt4,•,       ) %mt4 = $replace(%mt4,,              ) %mt4 = $replace(%mt4,¡,    ) %mt4 = $replace(%mt4,¢,   |   ) %mt4 = $replace(%mt4,¯,         ) %mt4 = $replace(%mt4,°,       ) %mt4 = $replace(%mt4,¿,       ) %mt4 = $replace(%mt4,×,       ) %mt4 = $replace(%mt4,Þ,       ) %mt4 = $replace(%mt4,þ,       ) %mt4 = $replace(%mt4,ß,        ) %mt4 = $replace(%mt4,÷,       ) %mt4 = $replace(%mt4,Æ,           ) say %mt4 mt5 } /mt5 { %mt5 = $replace(%mt5,1,       ) %mt5 = $replace(%mt5,2,       ) %mt5 = $replace(%mt5,3,       ) %mt5 = $replace(%mt5,4,       ) %mt5 = $replace(%mt5,5,       ) %mt5 = $replace(%mt5,6,       ) %mt5 = $replace(%mt5,7,       ) %mt5 = $replace(%mt5,8,       ) %mt5 = $replace(%mt5,9,       ) %mt5 = $replace(%mt5,0,       ) %mt5 = $replace(%mt5,A,       ) %mt5 = $replace(%mt5,B,       ) %mt5 = $replace(%mt5,C,       ) %mt5 = $replace(%mt5,D,       ) %mt5 = $replace(%mt5,E,      ) %mt5 = $replace(%mt5,F,      ) %mt5 = $replace(%mt5,G,       ) %mt5 = $replace(%mt5,H,        ) %mt5 = $replace(%mt5,I,     ) %mt5 = $replace(%mt5,J,       ) %mt5 = $replace(%mt5,K,       ) %mt5 = $replace(%mt5,L,        ) %mt5 = $replace(%mt5,M,        ) %mt5 = $replace(%mt5,N,       ) %mt5 = $replace(%mt5,O,       ) %mt5 = $replace(%mt5,P,       ) %mt5 = $replace(%mt5,Q,        ) %mt5 = $replace(%mt5,R,        ) %mt5 = $replace(%mt5,S,       ) %mt5 = $replace(%mt5,T,       ) %mt5 = $replace(%mt5,U,        ) %mt5 = $replace(%mt5,V,         ) %mt5 = $replace(%mt5,W,        ) %mt5 = $replace(%mt5,X,        ) %mt5 = $replace(%mt5,Y,         ) %mt5 = $replace(%mt5,Z,       ) %mt5 = $replace(%mt5,`,    ) %mt5 = $replace(%mt5,~,         ) %mt5 = $replace(%mt5,!,    ) %mt5 = $replace(%mt5,@,         ) %mt5 = $replace(%mt5,$chr(35),            ) %mt5 = $replace(%mt5,%,       ) %mt5 = $replace(%mt5,^,           ) %mt5 = $replace(%mt5,&,         ) %mt5 = $replace(%mt5,*,         ) %mt5 = $replace(%mt5,$chr(40),      ) %mt5 = $replace(%mt5,$chr(41),      ) %mt5 = $replace(%mt5,-,      ) %mt5 = $replace(%mt5,$chr(190),         ) %mt5 = $replace(%mt5,=,        ) %mt5 = $replace(%mt5,+,       ) %mt5 = $replace(%mt5,[,    ) %mt5 = $replace(%mt5,],    ) %mt5 = $replace(%mt5,$chr(123),      ) %mt5 = $replace(%mt5,$chr(125),      ) %mt5 = $replace(%mt5,;,    ) %mt5 = $replace(%mt5,:,    ) %mt5 = $replace(%mt5,',    ) %mt5 = $replace(%mt5,",      ) %mt5 = $replace(%mt5,$chr(44),    ) %mt5 = $replace(%mt5,.,    ) %mt5 = $replace(%mt5,<,          ) %mt5 = $replace(%mt5,>,          ) %mt5 = $replace(%mt5,/,       ) %mt5 = $replace(%mt5,?,       ) %mt5 = $replace(%mt5,|,     ) %mt5 = $replace(%mt5,\,       ) %mt5 = $replace(%mt5,$,   |    ) %mt5 = $replace(%mt5,$chr(32),     ) %mt5 = $replace(%mt5,•,       ) %mt5 = $replace(%mt5,,              ) %mt5 = $replace(%mt5,¡,    ) %mt5 = $replace(%mt5,¢,   |   ) %mt5 = $replace(%mt5,¯,         ) %mt5 = $replace(%mt5,°,       ) %mt5 = $replace(%mt5,¿,       ) %mt5 = $replace(%mt5,×,       ) %mt5 = $replace(%mt5,Þ,       ) %mt5 = $replace(%mt5,þ,       ) %mt5 = $replace(%mt5,ß,        ) %mt5 = $replace(%mt5,÷,       ) %mt5 = $replace(%mt5,Æ,           ) say %mt5 unset %mt $1- unset %mt2 $1- unset %mt3 $1- unset %mt4 $1- unset %mt5 $1- }