sub factorial { $_[0] == 1 ? 1 : $_[0] * factorial($_[0] - 1) }