begin building a scheme template

main.scm.tmpl

@@ -0,0 +1,16 @@
+(import
+    (chicken io)
+    (chicken format)
+)
+
+(call-with-input-file "inputs/input"
+    (lambda (port)
+        (map
+            (lambda (line) (printf "~A~%" line))
+            (read-lines port))))
+
+(call-with-input-file "inputs/input"
+    (lambda (port)
+        (map
+            (lambda (line) (printf "~A~%" line))
+            (read-lines port))))

new.sh

@@ -14,5 +14,8 @@ if [ "${1}" != "" ]; then
     if [ ! -f "${padded}/main.go" ]; then
         cp -n main.go.tmpl ${padded}/main.go
     fi
+    if [ ! -f "${padded}/main.scm" ]; then
+        cp -n main.scm.tmpl ${padded}/main.scm
+    fi
     echo "https://adventofcode.com/${__year}/day/${1}"
 fi

run.sh

@@ -6,5 +6,8 @@ if [ "${1}" != "" ]; then
     if [ "${2}" == "go" ]; then
         go run main.go
     fi
+    if [ "${2}" == "csi" ]; then
+        csi -s main.scm
+    fi
     cd - > /dev/null
 fi