#!perl -nla
sub F{$a[pop@F]||=0|rand 9e9}$a{$h}//=$.;$#F?$h+=pop(@F)*(&F-F):print$a{$h}-2