From de1970dbc78a5233a024555dd9fea6f393d000e4 Mon Sep 17 00:00:00 2001
From: Mike Holloway <mike.holloway@protonmail.com>
Date: Mon, 7 Apr 2025 19:52:37 -0400
Subject: [PATCH] working bash wrapper

---
 icecast-ssl-helper     | 20 ++++++++++++++++++++
 icecast-ssl-helper.scm |  8 ++++++++
 2 files changed, 28 insertions(+)
 create mode 100755 icecast-ssl-helper
 create mode 100644 icecast-ssl-helper.scm

diff --git a/icecast-ssl-helper b/icecast-ssl-helper
new file mode 100755
index 0000000..60dfeae
--- /dev/null
+++ b/icecast-ssl-helper
@@ -0,0 +1,20 @@
+#!/bin/env bash
+
+## guile_installed () {
+##   if $(which guile)
+##   then
+##     GUILE_BIN="guile"
+##   elif $(which guile3.0)
+##   then
+##     GUILE_BIN="guile3.0"
+##   else
+##     which apt && sudo apt install guile-3.0 || echo -e "\nERROR: apt Package Manager not found.\n\
+##     This script only supports Debian-based Linux Distributions which use the apt package manager, like Raspbian OS." && exit 127
+##   fi
+## }
+
+## guile_installed
+
+GUILE_BIN="guile3.0"
+
+$GUILE_BIN -s icecast-ssl-helper.scm
diff --git a/icecast-ssl-helper.scm b/icecast-ssl-helper.scm
new file mode 100644
index 0000000..412b542
--- /dev/null
+++ b/icecast-ssl-helper.scm
@@ -0,0 +1,8 @@
+(use-modules (ssh session))
+
+(display "Hello there.\n")
+
+(define (myproc x y)
+  (string-append "x is " x "\nand y is " y "\n"))
+
+(values (myproc "7" "9"))