Pour le dire à la façon des hackers :

    sub greu ($)
    # renvoie la greuitude de la chose passée en argument...
        my $chose = shift;
        return !blanc $chose;
    }

    sub blanc ($)
    # renvoie la blancheur de la chose passée en argument...
    # ...
    }