(defun fibo (n)
　( cond
　　(( or (equal n 1) (equal n 2) ) 1 )
　　　(t (plus ( fibo (difference n 1) )
　　　　　　　　 (fibo (difference n 2 ) ) ) )
　　)
)

↓こんな感じ。

procedure( fibo(n)
　　if ( (n == 1 || n ==2 ) then
　　　　　1
　　else fibo(n-1)+ fibo(n-2)
　)
)

どっちで書いてloadしても良いんだけどさ。