#!/bin/sh
#
#	@(#)makedb.sh	8.1 (Berkeley) 6/4/93

awk '{i++; print $0; print i;}' /usr/share/dict/words > WORDS
ls /bin /usr/bin /usr/ucb /etc | egrep '^(...|....|.....|......)$' | \
sort | uniq | \
awk '{
	printf "%s\n", $0
	for (i = 0; i < 1000; i++)
		printf "%s+", $0
	printf "\n"
}' > LONG.DATA
(CommandList
  children: [
    (SimpleCommand
      words: [{(awk)} {(SQ <"{i++; print $0; print i;}">)} {(/usr/share/dict/words)}]
      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(WORDS)} spids:[18])]
    )
    (Pipeline
      children: [
        (C {(ls)} {(/bin)} {(/usr/bin)} {(/usr/ucb)} {(/etc)})
        (C {(egrep)} {(SQ <"^(...|....|.....|......)$">)})
        (C {(sort)})
        (C {(uniq)})
        (SimpleCommand
          words: [
            {(awk)}
            {
              (SQ <"{\n"> <"\tprintf \"%s\\n\", $0\n"> <"\tfor (i = 0; i < 1000; i++)\n"> 
                <"\t\tprintf \"%s+\", $0\n"> <"\tprintf \"\\n\"\n"> <"}">
              )
            }
          ]
          redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(LONG.DATA)} spids:[63])]
        )
      ]
      negated: False
    )
  ]
)