(write "Start program")
(newline)

(if (not (< 1 (length (command-line-arguments))))
	(
		(print "Need more then 1 argument")
		(exit 0)
	)
)

(define start_point (string->number (car (command-line-arguments))))
(define end_point 
	(
	string->number (car (cdr (command-line-arguments)))
	)
)

(print start_point)
(print end_point)

(write "End program")
(newline)