scope # Show the Shannon entropy of a string

    # the Agena strings.shannon library routine returns three values:
    #     the normalised specific Shannon entropy, the specific Shannon entropy and
    #     the total information entropy
    #     the middle value appears to be the one required for the task
    local proc shannon( s :: string ) :: number
        local nse, se, tie := strings.shannon( s );
        return se
    end;

    print( shannon( "1223334444" ) )

epocs