ABAP : factorial PERFORM

DATA Factorial TYPE I.
DATA Counter TYPE I.
DATA Result TYPE I.
Factorial = 10.
Counter = Factorial - 1.
result = Factorial.
PERFORM find_fac CHANGING Factorial Counter Result.
WRITE : result.
FORM find_fac CHANGING factorial counter result.
  result = result * Counter.
  Counter = Counter - 1.
  if Counter <> 0.
    PERFORM find_fac CHANGING Factorial Counter Result.
  ENDIF.
ENDFORM.