anchor.diff:                  }
                   nav |> box
   
  +        
           do this.Get.["/api/balance"] <-
               fun parameters ->
  -                let queryParameterValue = this.Request.Query?parameters :?> Nancy.DynamicDictionaryValue
  -
  -                let queryParameters = 
  -                    match queryParameterValue.HasValue with
  -                    | true -> Some <| parseQueryParameters (queryParameterValue.ToString())
  -                    | otherwise -> None
  -
  -                let balanceSheetParameters = 
  -                    match queryParameters with
  -                    | Some (parameters, _) -> parameters
  -                    | None -> {AccountsWith = None; ExcludeAccountsWith = None; PeriodStart = None; PeriodEnd = None;}
  -
  -                let title =
  -                    match queryParameters with
  -                    | Some (_, Some title) -> title
  -                    | _ -> "Balance"
  -
                   let dateFormat = "MMMM %d, yyyy"
  +                let balanceParameters, title = parseQueryParameters this.Request.Query "Balance"
   
                   let subtitle =
  -                    match balanceSheetParameters.PeriodStart, balanceSheetParameters.PeriodEnd with
  +                    match balanceParameters.PeriodStart, balanceParameters.PeriodEnd with
                       | Some periodStart, Some periodEnd -> "For the period of " + periodStart.ToString(dateFormat) + " to " + periodEnd.ToString(dateFormat)
                       | Some periodStart, None -> "Since " + periodStart.ToString(dateFormat)
                       | _, Some periodEnd -> "Up to " + periodEnd.ToString(dateFormat)
                       | _, _ -> "As of " + System.DateTime.Now.ToString(dateFormat)
   
                   let balanceSheetData = {
  -                    Title = title;
  -                    Subtitle = subtitle;
  -                    AccountBalances = layoutBalanceData <| Query.balance balanceSheetParameters journalService.Journal;
  +                    title = title;
  +                    subtitle = subtitle;
  +                    balances = layoutBalanceData <| Query.balance balanceParameters journalService.Journal;
                   }
                   balanceSheetData |> box
  +
   
           do this.Get.["/api/networth"] <-
               fun parameters ->
  
positive.code:             fun parameters ->
                  this.View.["index.html"] |> box
  
          do this.Get.["/api/nav"] <-
              fun parameters ->
                  let nav = {
  
negative.code:                 | Some _, _ -> upto
                  | _, Some _ -> periodEnd
                  | _, _ -> None;
          },
          match titleVal.HasValue with
          | true -> titleVal.ToString()
          | otherwise -> defaultTitle
             
  
  
  
  