#!/bin/sh
perl -e ‘for(1..100){$s+=$_++%2*$_};print”$s\n”’