program mult ;
  var
    p : file of byte ;
    i : byte register ;
    s : string ;
  begin
    open (p, '/p', output) ;
    s := concat(#27,#38,#108,cline(1),#88) ;
    for i := 1 to s[0] do
      write (p, s[i]) ;
    close (p)
  end .
