unit loggers; interface procedure err(const message : UTF8String); procedure warn(const message : UTF8String); implementation procedure err(const message : UTF8String); begin Writeln(message); // FIXME. end; procedure warn(const message : UTF8String); begin Writeln(message); // FIXME. end; end.