OPTION ARITHMETIC DECIMAL_HIGH
DECLARE EXTERNAL FUNCTION P
LET n=365
LET m=47
PRINT 1-P(n,m)/n^m
END

EXTERNAL FUNCTION P(a,b)
OPTION ARITHMETIC DECIMAL_HIGH
LET k=1
FOR t=1 TO b
   LET k=k*(a-t+1)
NEXT t
LET P=k
END FUNCTION