anchor.diff:          | Contact
           | Protected
           | Login of option<Action>
  +        | [<Query("firstName", "lastName")>] FormResultGet of firstName: string * lastName: string
  +        | [<FormData("firstName", "lastName")>] FormResultPost of firstName: string * lastName: string
           | Logout
           | Echo of string
           | Api of Api.Action
  
positive.code: 
          /// A page to collect contact information.
          let ContactPage =
              Template "Contact" <| fun ctx ->
                  [
                      Elt("h1", Text "Contact Form")
                      Elt("div", new Client.SignupSequenceControl())
                  ]
  
          /// A simple page that echoes a parameter.
  
negative.code:                     Elt("h1", Text param)
                  ]
  
          /// A simple page that echoes two form fields.
          let FormResult x y =
              Template "Form result" <| fun ctx ->
                  [
                      Elt("h1", Text (x + " " + y))
                  ]
         
          /// A simple login page.
          let LoginPage (redirectAction: option<Action>) =
              Template "Login" <| fun ctx ->
  