cat >/tmp/foo.ppm <<EOF
P3
100 100
255
EOF

f () {
  for i in `seq 1 10000`
  do
    echo $((i*i/400 % 16 * 16)) $((i*2 % 128 *2)) $(((i+10)/2))
  done
}

for r g b in `f`
do
  if test $r -lt $g
  then
    echo $((r*2%128)) $((b%64)) $((g/2))
  else
    echo $r $((g%64)) $(((b + g)% 64))
  fi
done | paste - - - - - | sort | head -751 > /tmp/foo.1
cat /tmp/foo.{1,1,1} | head -2000 >> /tmp/foo.ppm

NR=0118
convert /tmp/foo.ppm -filter box -resize 800% ${NR}.jpg
scp ${NR}.jpg heavy:hg0/heavy_www

# ran w/ zsh