(setq dsf/screen-one (lambda nil
  (block nil
    (dsf/screen 'one "Screen One")
    (dsf/action 'switch "Switch to Two" 'S (lambda nil (dsf/show-screen 'two)))
    (dsf/default-action 'switch)
    (dsf/action 'exit "Exit" 'E (lambda nil (dsf/exit)))
    (dsf/cancel-action 'exit)

    (dsf/screen 'two "Screen Two")
    (dsf/action 'switch "Switch to One" 'S (lambda nil (dsf/show-screen 'one)))
    (dsf/default-action 'switch)
    (dsf/action 'exit "Exit" 'E (lambda nil (dsf/exit))
    (dsf/cancel-action 'exit)

    (dsf/show-screen 'one)
  )
))