[ (define-session logged-in) (define-input _login_name _login_password) (silent (if (and (equal? _login_name "zach") (equal? _login_password "ilovecl")) (set! logged-in #t))) (brl-unless logged-in ] Log In
Login: (must be zach)
Password: (must be ilovecl)
[ (brl-continue brl-context) )