#!perl -palF\d*
$-=$_+=0;$_*=$-while$--=$#F