unit t4; {$L wat4.obj} interface procedure wat4;far; implementation procedure wat4;external; end.