RosettaCodeData/Task/Loops-While/UnixPipes/loops-while.up

(echo 1024>p.res;tail -f p.res) | while read a ; do
   test $a -gt 0 && (expr $a / 2  >> p.res ; echo $a) || exit 0
done