File new fileIn: 'emp2.st'
   File new fileIn: 'hurlyemp.st'
   File new fileIn: 'monthemp.st'
   File new fileIn: 'database.st'
   db <- EmployeeDataBase new
   g1 <- HourlyEmployee new
   g1                     \
 name: 'George Blogswell';\
 empNum: 1021;            \
 rate: 10.00;             \
 setHours: 160;           \
 addSkill: 'Smalltalk';    \
 addSkill: 'C++';          \
 addSkill: 'Fortran'
   g2 <- MonthlyEmployee new
   g2                    \
  name: 'Jane Lee';      \
  empNum: 1054;          \
  salary: 2250;          \
  addSkill: 'Smalltalk'; \
  addSkill: 'Lisp';      \
  addSkill: 'C++'
   g3 <- MonthlyEmployee new
   g3                    \
  name: 'Mike Mendez';   \
  empNum: 1088;          \
  salary: 1950;          \
  addSkill: 'Cobol'
   db add: g1
   db add: g2
   db add: g3
   db do: [:x | x name print]
   (db findSkill: 'Smalltalk') do: [:x | x name print]
db