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