till p137 2-81. ignore fibo-do.scm