#!perl -p075l12
$_=$i+=y/c//-1