"""SNOBOL4 Program to compute Fibonacci numbers"""
        OUTPUT = 'Enter N:'
        N = INPUT
        N = N + 0
        F1 = 0
        F2 = 1
LOOP    LE(N,0) :S(DONE)
        OUTPUT = F1
        TEMP = F1 + F2
        F1 = F2
        F2 = TEMP
        N = N - 1 :(LOOP)
DONE
END