#!perl -lp075
$_=$a+=y/c//-1