RUN(period,glb)
  J JOB(period,glb)
  QUIT
JOB(period,glb)
  H period
  K @glb
  Quit