Elm implementation of simple nested data processing

Nested.elm

import Html exposing (..)

worldData =
  { people = 
      [ { money = 129825, name = "Alice Brown" }
      , { money = 100, name = "John Smith" }
      , { money = 50000000000, name = "Scrooge McDuck" }
      , { money = 2870, name = "Charlie Johnson" }
      , { money = 8273280, name = "Michael Smith" }
      ]
  , bank = { funds = 47000000000000000 }
  }
  
taxIfWealthy person =
  if person.money > 100000 then
    ({ person | money = person.money - 1000 }, 1000)
  else
    ( person, 0 )
  
taxPeople world =
  let (people_, funds) =
         List.map taxIfWealthy world.people
         |> List.unzip
    
      totalFunds = List.sum funds
      bank = world.bank
      bank_ = { bank | funds = world.bank.funds + totalFunds }
   in
     { world | people = people_, bank = bank_ }
  
main = text <| toString <| taxPeople worldData

  { "people"
      [ { "money": 129825, "name" : "Alice Brown" }
      , { "money": 100, "name": "John Smith" }
      , { "money": 50000000000, "name": "Scrooge McDuck" }
      , { "money": 2870, "name": "Charlie Johnson" }
      , { "money": 8273280, "name": "Michael Smith" }
      ]
  , "bank": { "funds": 47000000000000000 }
  }