1 {#
   2 
   3 1 2 3
   4 4 5 6
   5 
   6 A
   7 10 20 30 40
   8 
   9 B
  10 1 2
  11 3 4
  12 
  13 &
  14 
  15 #! /bin/bash
  16 ./stream2
  17 cat stream2.out
  18 rm stream2.out
  19 exit 0
  20 
  21 }
  22 program stream2;
  23 uses mtx09;
  24 var
  25   fi, fo: text;
  26   m: mtx;
  27 begin
  28   assign(fi,'stream2.pas');
  29   reset(fi);
  30   assign(fo,'stream2.out');
  31   rewrite(fo);
  32   while mrd(m,fi) do mwr(m,fo);
  33   close(fo);
  34   append(fo);
  35   mwr(m,fo);
  36   close(fo)
  37 end.
  38 {
  39 1   2   3
  40 4   5   6
  41 
  42 A
  43 10   20   30   40
  44 
  45 B
  46 1   2
  47 3   4
  48 
  49 B
  50 1   2
  51 3   4
  52 
  53 }