included-1.scm 57 B

12345
  1. (define z1
  2. (list-length-1 x))
  3. (define z2
  4. (round z1))