
lend amount balance = let reserve = 100 
                          newBalance = balance - amount
                      in if balance < reserve
                         then Nothing 
                         else Just newBalance

