DOIT
  REPEAT :COUNT [
    PRINT FIB :N
    MAKE "N :N + 1
  ]
END

TO FIB :NUM
  IF :NUM < 2 [
    OUTPUT :NUM
  ]
  OUTPUT (FIB :NUM - 1) + (FIB :NUM - 2)
END

MAKE "N 0
MAKE "COUNT 10
DOIT