Ответ

Sumo 17.07.2014 16:45

@f[aNum]
  $result(1)
  ^while($aNum > 1){
    $result($result * $aNum)
    ^aNum.dec[]
  }