PROGRAM	"progname"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
    n! = 7.125
    PRINT FORMAT$("0000#.###", n!)
END FUNCTION
END PROGRAM