#!/usr/bin/perl

package F;sub TIESCALAR{bless[],pop}
sub FETCH{$v=$n=pop()->[$|];$v*=--$n
while(1<$n);$v}sub STORE{shift()->[0
]=pop}tie($f,F);$f=pop;print$f,$/,$@