1#!/bin/guile
 2!#
 3(use-modules (ice-9 format))
 4
 5(define str
 6  (if (> (length (command-line)) 1)
 7      (cadr (command-line))
 8      "888822"
 9      ))
10
11;; (display "(")
12
13(let main (
14	   (i 0)
15	   )
16;;  (format #t "\x1b[48;2;~a;~a;~am"
17;;	  
18;;	  (string->number (substring str 0 2)16)
19;;	  (string->number (substring str 2 4)16)
20;;	  (string->number (substring str 4 6)16)
21;;	  )
22  (when (not (= i 6))
23    (format #t "~d"
24	    (string->number (substring str i (+ i 2))16)
25	    )
26    (when (not (= i 4)) (format #t ", "))
27    (main (+ i 2))
28    )
29  )
30
31;;(format #t "),~%")