Posted to none by aspect at Sun Aug 21 02:26:26 GMT 2011view pretty

#!/bin/rc
    
    filter()
    {
        read p || exit
        while read x; do
            if [ `expr $x % $p` != 0 ]; then
                echo $x
            fi
        done | filter
    }
    
    seq 2 100 | filter