let f request =

% let url =
%   match Dream.query request "redirect" with
%       | None -> "/login"
%       | Some r -> 
%     Format.sprintf "/login?redirect=%s" r
% in
<%s! Dream.form_tag ~action:url request %>
  <div class="mb-3">
    <label for="nick" class="form-label">Nick</label>
    <input name="nick" type="text" class="form-control" id="nick" aria-describedby="nick-help">
    <div id="nick-help" class="form-text">What is you nickname?</div>
  </div>
  <div class="mb-3">
    <label for="password" class="form-label">Password</label>
    <input name="password" type="password" class="form-control" id="password">
  </div>
  <button type="submit" class="btn btn-primary">Submit</button>
</form>