inpath () {
    needle=$1;

    if [ $# < 2 ];
    then
        local IFS=:;
        return $(inpath "$needle" $PATH);
    fi;

    for straw in "$@"; do
        [ "$needle" = "$straw" ] && return 0; ##success                                                  
    done;
    return 1;
}