%%HP: T(1)A(R)F(.);
 CLEAR
"Factorial
Enter a positive
integer number "
"" INPUT OBJ  N
   N !
  

