Paste: funny word

: inlining-rank ( #call word -- n )
    [ classes-known? 2 0 ? ]
    [
        {
            [ body-length-bias ]
            [ inline-count-bias ]
            [ "default" word-prop -4 0 ? ]
            [ "specializer" word-prop 1 0 ? ]
            [ method-body? 1 0 ? ]
        } cleave
        node-count-bias
        loop-nesting get
    ] bi* + + + + + + + ;