;Define a new command to compute the facultaty of its argument
;Usage :
;	< fact 5
;	> 00000078 , 120

alias _fact 'void if(([])==1,1,{_fact ([])-1}*([]))'
alias fact 'disp {_fact []}'
