4.3BSD/usr/contrib/icon/test/std29.icn

record array(a,b,c,d,e,f,g)

procedure dummy(u,v,x,y,z)
   suspend u | v
   return x
end

procedure main()
   write("system(\"echo 1\") ----> ",image(system("echo 1")) | "none")
   write("system(\"ls -s std29.icn\") ----> ",image(system("ls -s std29.icn")) | "none")
   write("system(\"wc no.file\") ----> ",image(system("wc no.file")) | "none")
   write("system(repl(\" \",500)) ----> ",image(system(repl(" ",500))) | "none")
end