[ Soubor ] číst

var f := Soubor nový: (Umístění-souboru /tmp: „test.txt“).
 f psát: „test“.
 var q := Soubor nový: (Umístění-souboru /tmp: „test.txt“).
 Stdout psát: q číst, stop.