% Pokrenuti ovako: gs -q -dBATCH fibonacci.ps
% Ako nemate Ghostscript: apt-get install gs-(afpl|esp|gpl)

% fibonacci procedura ispisuje n-ti fibonnacijev broj gdje je n prvi
% na stacku.

/n 22 def % n - promjeniti broj ako treba

/fibonacci
{
    % dodaje na stack 0 i 1, rolla zadnja 3 elemenata ( n, 0 i 1 )
    % za -1 te se stvori stanje (0 1 n) jer repeat naredba treba
    % prvo n.
    0 1 3 -1 roll
    {
        % kopira prva dva elementa na stacku
        2 copy     
        % zbraja prva dva elementa te rezultat stavlja na stack
        add        
        % premjesta zadnji element na prvo mjesto...
        3 -1 roll
        % ...kako bi ga mogli izbrisati jer vise ne treba (fib(n-3))
        pop
    } repeat % repeat petlja koja ide od 0 do n
    % brise prvi element sa stacka (koji je fibonacci(n+1))
    pop
    % nakon zavrsetka procedure, ona ostavlja rjesenje na stacku,
    % a to je fibonacci(n)
} bind def

% pokrece fibonnaci proceduru sa n-om na stacku te ispisuje
% fibonacci(n)
n fibonacci

% postavlja se na pocetne koordinate
50 50 moveto 
% trazi se Times-Roman font, postavlja ga se na velicinu 120
/Times-Roman findfont 120 scalefont setfont 
% stvara se string velicine 10 u koji ce bit spremljen rezultat procedure
10 string 
% rezultat se pretvara u string (cvs-u je potreban neki objekt [odnosno, u 
% nasem slucaju broj] i string u koji ce to spremit, a to sad imamo
cvs 
% show prikazuje tekst na ekranu
show
% to mora biti kao kraj stranice
showpage