(= (chain-conf $b 1) $b) (= (chain-conf-step $c) (let $next (* $c (/ $c (+ $c 1))) $next)) (= (revision $c1 $c2) (let $r (/ (+ $c1 $c2) (+ (+ $c1 $c2) 1)) $r)) (= (viable $c) (if (> $c 0.25) True False)) (= (action-ready $c) (if (> $c 0.65) True False)) (= (decay-report $base $hops) (let* (($h1 $base) ($h2 (chain-conf-step $h1)) ($h3 (chain-conf-step $h2)) ($r1 (revision $h3 0.65))) (decay base $base h2 $h2 h3 $h3 rev-with-0.65 $r1 action-ready (action-ready $r1))))