fork download
  1. procedure main ()
  2. while (l := read()) ~= 42 do
  3. write(l);
  4. end
Success #stdin #stdout 0.03s 5052KB
stdin
1
2
10
42
11
stdout
1
2
10