#!perl -nla
$s+=y///c*($z^=print$"x($s-=$z*y///c).($z?reverse:$_))for@F