Fix nth function from lab6.scm

Забелязах, че:
```scheme
(nth (list 1 2 3 4) 0) ;;; 1
(nth (list 1 2 3 4) 1) ;;; 1
```
което не е коректно. Предполагам, че се иска индексите да започват от **0** и го поправих да работи така:
```scheme
(nth (list 1 2 3 4) 0) ;;; 1
(nth (list 1 2 3 4) 1) ;;; 2
```