----> &null
f := open("foo.baz","w") ----> file(foo.baz)
write(f,"hello world") ----> "hello world"
close(f) ----> file(foo.baz)
F := open("gc1.icn") ----> file(gc1.icn)
)(niam erudecorp
)"... gnillif"(etirw   
{ od 001 ot 1 yreve   
od 001 ot 1 yreve      
)0001(tsil         
}      
)snoitcelloc&(etirw#   
)"... gnitcelloc"(etirw   
)(tcelloc   
)"... gnillif"(etirw   
{ od )0001 ot 1,"x"(lper =: s yreve   
))esacl&(gnirts(tesc      
)(elbat =: t      
)]s[(tes      
]5 : 2[s      
}      
)"enod"(etirw   
dne
every write(reverse(!F)) ----> none
close(F) ----> file(gc1.icn)
F := open("gc1.icn") ----> file(gc1.icn)
procedure main()
   write("filling ...")
   every 1 to 100 do {
      every 1 to 100 do
         list(1000)
      }
   #write(&collections)
   write("collecting ...")
   collect()
   write("filling ...")
   every s := repl("x",1 to 1000) do {
      cset(string(&lcase))
      t := table()
      set([s])
      s[2 : 5]
      }
   write("done")
end
every write(map(!F)) ----> none
close(F) ----> file(gc1.icn)
F := open("gc1.icn") ----> file(gc1.icn)
pr-c-d-r- m--n()
   wr-t-("f-ll-ng ...")
   -v-ry 1 t- 100 d- {
      -v-ry 1 t- 100 d-
         l-st(1000)
      }
   #wr-t-(&c-ll-ct--ns)
   wr-t-("c-ll-ct-ng ...")
   c-ll-ct()
   wr-t-("f-ll-ng ...")
   -v-ry s := r-pl("x",1 t- 1000) d- {
      cs-t(str-ng(&lc-s-))
      t := t-bl-()
      s-t([s])
      s[2 : 5]
      }
   wr-t-("d-n-")
-nd
every write(map(!F,&cset || "aeiou",&cset || "-----")) ----> none
close(F) ----> file(gc1.icn)
F := open("gc1.icn") ----> file(gc1.icn)
procedureumain()
uuuwrite("fillingu...")
uuueveryu1utou100udou{
uuuuuueveryu1utou100udo
uuuuuuuuulist(1000)
uuuuuu}
uuu#write(&collections)
uuuwrite("collectingu...")
uuucollect()
uuuwrite("fillingu...")
uuueveryusu:=urepl("x",1utou1000)udou{
uuuuuucset(string(&lcase))
uuuuuutu:=utable()
uuuuuuset([s])
uuuuuus[2u:u5]
uuuuuu}
uuuwrite("done")
end
every write(map(!F,&cset || "     ",&cset || "aeiou")) ----> none
close(F) ----> file(gc1.icn)
f := open("gc1.icn") ----> file(gc1.icn)
procedure main()
   write("filling ...")
   every 1 to 100 do {
      every 1 to 100 do
         list(1000)
      }
   #write(&collections)
   write("collecting ...")
   collect()
   write("filling ...")
   every s := repl("x",1 to 1000) do {
      cset(string(&lcase))
      t := table()
      set([s])
      s[2 : 5]
      }
   write("done")
end
while writes(reads(f)) ----> none
close(f) ----> file(gc1.icn)
f := open("gc1.icn") ----> file(gc1.icn)
procedure main()
   write("filling ...")
   every 1 to 100 do {
      every 1 to 100 do
         list(1000)
      }
   #write(&collections)
   write("collecting ...")
   collect()
   write("filling ...")
   every s := repl("x",1 to 1000) do {
      cset(string(&lcase))
      t := table()
      set([s])
      s[2 : 5]
      }
   write("done")
end
while writes(reads(f,10)) ----> none
f := open("gc1.icn") ----> file(gc1.icn)
procedure main()
   write("filling ...")
   every 1 to 100 do {
      every 1 to 100 do
         list(1000)
      }
   #write(&collections)
   write("collecting ...")
   collect()
   write("filling ...")
   every s := repl("x",1 to 1000) do {
      cset(string(&lcase))
      t := table()
      set([s])
      s[2 : 5]
      }
   write("done")
end
while write(read(f)) ----> none
close(f) ----> file(gc1.icn)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
0.25  1.318 0.252 0.244 0.083 0.968 0.247 0.255 0.5   1.284 -1.38 -1.26 
0.5   1.047 0.523 0.463 0.165 0.877 0.479 0.546 0.707 1.648 -0.69 -0.63 
0.75  0.722 0.848 0.643 0.244 0.731 0.681 0.931 0.866 2.117 -0.28 -0.26 
1.0   0.0   1.570 0.785 0.321 0.540 0.841 1.557 1.0   2.718 0.0   0.0   
1.25              0.896 0.394 0.315 0.948 3.009 1.118 3.490 0.223 0.203 
1.5               0.982 0.463 0.070 0.997 14.10 1.224 4.481 0.405 0.369 
1.75              1.051 0.528 -0.17 0.983 -5.52 1.322 5.754 0.559 0.509 
2.0               1.107 0.588 -0.41 0.909 -2.18 1.414 7.389 0.693 0.630 
2.25              1.152 0.643 -0.62 0.778 -1.23 1.5   9.487 0.810 0.738 
2.5               1.190 0.694 -0.80 0.598 -0.74 1.581 12.18 0.916 0.834 
2.75              1.222 0.741 -0.92 0.381 -0.41 1.658 15.64 1.011 0.920 
3.0               1.249 0.785 -0.98 0.141 -0.14 1.732 20.08 1.098 1.0   
3.25              1.272 0.825 -0.99 -0.10 0.108 1.802 25.79 1.178 1.072 
3.5               1.292 0.862 -0.93 -0.35 0.374 1.870 33.11 1.252 1.140 
3.75              1.310 0.896 -0.82 -0.57 0.696 1.936 42.52 1.321 1.203 
4.0               1.325 0.927 -0.65 -0.75 1.157 2.0   54.59 1.386 1.261 
4.25              1.339 0.956 -0.44 -0.89 2.006 2.061 70.10 1.446 1.317 
4.5               1.352 0.982 -0.21 -0.97 4.637 2.121 90.01 1.504 1.369 
4.75              1.363 1.007 0.037 -0.99 -26.5 2.179 115.5 1.558 1.418 
5.0               1.373 1.030 0.283 -0.95 -3.38 2.236 148.4 1.609 1.464 
5.25              1.382 1.051 0.512 -0.85 -1.67 2.291 190.5 1.658 1.509 
5.5               1.390 1.071 0.708 -0.70 -0.99 2.345 244.6 1.704 1.551 
5.75              1.398 1.089 0.861 -0.50 -0.59 2.397 314.1 1.749 1.592 
6.0               1.405 1.107 0.960 -0.27 -0.29 2.449 403.4 1.791 1.630 
6.25              1.412 1.123 0.999 -0.03 -0.03 2.5   518.0 1.832 1.668