anchor.diff:  
   let getValue x = float x.chg / 100.0
   
  +let formatLine locale currency entry =
  +    "\n" + (formatDate entry.dat locale) + " | " + (formatDescription entry.des) + " | " + (prettifyMoney locale currency (getValue entry))
  +
   let formatLedger currency locale entries =
       
       let headline = createHeadline locale
  
positive.code:     else 
          description.[0..21] + "..."
  
  let formatMoney (locale:string) (value:float) =
      value.ToString("#,#0.00", CultureInfo(locale))
  
  let prettifyMoney locale currency value =
      if value < 0.0 then 
  
negative.code:         | _ -> 
              entries
              |> List.sortBy (fun x -> x.dat, x.des, x.chg)
              |> List.map(fun x -> formatLine locale currency x)
              |> List.reduce(( + ))
  
      headline + content
  