BEGIN
    INTEGER hi;
    INTEGER lo;
    INTEGER n;
    LONG REAL ratio;
    LONG REAL goldenratio;

    goldenratio := (1.0@@0 + LSQRT(5.0@@0)) / 2.0@@0;
    hi := lo := n := 1;
    PRINT(n);
    WRITE("[t]");

    PRINT(lo);
    WRITE("[n]");
    WHILE (hi > 0) DO
    BEGIN
        n := n + 1;
	PRINT(n);
	WRITE("[t]");
	PRINT(hi);
	WRITE("[t]");

	ratio := hi / lo;

	PRINT(ratio);
	WRITE("[t]");
	PRINT(ratio - goldenratio);
	WRITE("[n]");	

	hi := lo + hi;
	lo := hi - lo;
    END;
END;