#!/bin/sh
perl -e 'for(;$i<100;$s+=($i+=2)){};print $s '