sub fact{ (map{$_[0]*=$_}1..$_[0]-1)[-1]||1 # 33 # only 30 char for numbers bigger than 1 # (map{$_[0]*=$_}1..$_[0]-1)[-1] }