$inc fvmstd.fp

proc main
  92 @N
  0 @a
  1 @b
  while &N 0 u> do
    &a &b u+ @c
    &b @a
    &c @b
    &N 1 u- @N
  endwhile
  &b :putuint :newline
endproc