atomo web fun: logging in

gistfile1.hs

  "/login" ->
    { h1: "hi!"
    
      { prompt: { url |
          form: {
            input: "password"
            submit: "log in"
          } action: url method: "post"
        }
      } until: { parameter: "password" == "secret" }

      p: "Ok!"
    }