#!perl -p0
$_=(/
/-(1-$')**$`)/$'.e2