(import srfi-1)

(display (make-list 3 "Girls!"))
(newline)

(display (iota 10 1))
(newline)

(display (tenth (iota 20 2)))
(newline)

(display (take-while (lambda (x) (= 2 x)) (list 2 2 2 3 4 5)))
(newline)

(display (delete-duplicates (list 1 1 222 3 3 3)))
(newline)


;;;output:

PS C:\Messages\build\chicken\scheme-projects> csc test-srfi1.scm                                
PS C:\Messages\build\chicken\scheme-projects> .\test-srfi1.exe
(Girls! Girls! Girls!)
(1 2 3 4 5 6 7 8 9 10)
11
(2 2 2)
(1 222 3)