ClassMethod Test()
{
  s C = 2500,
    r = 0.5,
    S = 3000000,
    T = 35,
    W = 5
  w $$maxWeddingCost(C, r, S, T, W),! ; => 93278.3281405256664

  s S = 2000000
  w $$maxWeddingCost(C, r, S, T, W),! ; => 174425.0762746580325
    
maxWeddingCost(C,r,S,T,W) s r=r/100,a=1+r**12,b=a**(T-W) q a**W-1/r*C+$$LEAST^%qarfunc(0,b-1/r*C-S/b)
}

ClassMethod esthetic(num = 441) As %String
{
  set estheticBases=""
  for base=2:1:10{
    set digits = $$toBase(num, base)
    if $$isEstheticInBase(digits) set estheticBases=estheticBases_$listbuild(base)
  }
  quit $listtostring(estheticBases)
  
toBase(n,base)
  ; Convert number n to a given base and return the digits as a list.
  set digits=""
  while n {
    set digits=(n#base)_digits,
        n=n\base
  }
  quit digits
isEstheticInBase(digits)
  ; Check if the given list of digits is esthetic.
  for i=2:1:$length(digits){
      if $zabs($extract(digits,i)-$extract(digits,i-1))'=1 {
          return 0
      }
  }
  return 1
}