% File oututf8.otp
% Conversion to UTF-8 from Unicode
% Copyright (c) 1999 John Plaice and Yannis Haralambous
% This file is part of the Omega project.
%

input:  2;
output: 1;

expressions:

@"00-@"7F
  => \1;
@"80-@"7FF
  => #((\1 div: @"40)+@"C0)
     #((\1 mod: @"40)+@"80);
@"800-@"FFFF
  => #((\1 div: @"1000)+@"E0)
     #(((\1 mod: @"1000) div: @"40)+@"80)
     #((\1 mod: @"40)+@"80);
. => #(@"00);