4.3BSD/usr/contrib/icon/libtest/distr/shuffile.out

      doll(&input,"standard input")
            inpt := &input

#	Last modified 6/16/83
#
         }
   tab := "\t"
               }
      every arg := !a do
procedure doll(ifd,name)
            {
         {
               {
         doll(inpt,arg)
            arg := "standard input"
end
            }
            if not (inpt := open(arg)) then
end
   if *a = 0 then
#
      {
   while line := read(ifd) do
procedure main(a)
#	LL(1)

         else
      long <:= x
         if arg == "-" then
   write(right(\short,6),tab,right(\long,6),tab,\name)
#	Line length
               next
   
#
   local arg, inpt
      }
#	Thomas R. Hicks
      /short := x
   else
      short >:=  x
               write(&errout,"Cannot open ",arg)
      x := *line
   long := 0
   local line, long, short, tab, x
#