https://videosashka.com/watch/WHS7aQ8vtaU/how-to-write-sub-functions-in-autolisp