We got our first hummers today! This one, a Rufous, has come by a few times today. Also saw a smaller, greener hummer early this morning, but it was too fast for a pic and has not returned. I suspect it was a Black-chinned, but it could have been a Calliope. 🪶
![A screenshot of a Cozenage Scheme REPL session. It includes defining the recursive 'factorial' procedure, file I/O using bytevectors, and a demonstration of a procedure which calculates and prints powers of 2. The full transcript of the session is:
[13:49][darren@nina cozenage]$ ./cozenage
Cozenage version 0.9.2
Press <Ctrl+d> or type '(exit)' to quit
--> (define (factorial n)
(if (= n 1) 1
(* n (factorial (- n 1)))))
#<lambda 'factorial'>
--> (factorial 5)
120
--> (factorial 50)
30414093201713378043612608166064768844377641568960512000000000000
--> (define bv (bytevector 72 101 108 108 111))
bv
--> (let ((p (open-binary-output-file "test.bin")))
(write-bytevector bv p)
(close-output-port p))
#true
--> (let ((p (open-binary-input-file "test.bin")))
(define result (read-bytevector 5 p))
(close-input-port p)
result)
#u8(72 101 108 108 111)
--> (define (power-trail n limit)
(display n)
(newline)
(if (< n limit)
(power-trail (* n 2) limit)))
#<lambda 'power-trail'>
--> (power-trail 2 (expt 2 20))
2
4
8
16
32
64
128
256
512
1024
2048
4096
8192
16384
32768
65536
131072
262144
524288
1048576
#void](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:q7ptrlrah722jvmjsjyjvhrz/bafkreiaxscs5yp4ecry3ahzcxftyelq5d2i3bcjifr7ruxpd4oowllksra)
![Another Cozenage REPL session which demonstrates the loadable modules, bit-strings, a usage report from the garbage collector, tab-completion, and UTF-8 string -> bytevector -> string conversion.
The full transcript is:
[13:59][darren@nina cozenage]$ ./cozenage
Cozenage version 0.9.2
Press <Ctrl+d> or type '(exit)' to quit
--> (import (base system))
#true
--> (uptime)
(322200 "up 3 days 17:30" (0.03369140625 0.10107421875 0.080078125))
--> (uname)
("Linux" "nina" "6.12.63-gentoo-dist-NINA-SUPALEAN" "#1 SMP PREEMPT_DYNAMIC Sat Jan 10 18:37:21 PST 2026" "x86_64")
--> (import (base bits))
#true
--> (int->bitstring 193857)
b0101111010101000001
--> (>> 'b01010 2)
b010
--> (<< 'b01010 10)
b010100000000000
--> (gc-report)
Before collection:
===== GC Report ==========================
Heap size: 262144 bytes (0.25 MB)
Used bytes: 126976 bytes (0.12 MB)
Free bytes: 135168 bytes (0.13 MB)
Unmapped bytes: 0 bytes (0.00 MB)
Bytes since last GC: 104512 bytes
Total bytes allocd: 104512 bytes (lifetime)
GC collections: 1
==========================================
After collection:
===== GC Report ==========================
Heap size: 262144 bytes (0.25 MB)
Used bytes: 110592 bytes (0.11 MB)
Free bytes: 151552 bytes (0.14 MB)
Unmapped bytes: 0 bytes (0.00 MB)
Bytes since last GC: 0 bytes
Total bytes allocd: 104512 bytes (lifetime)
GC collections: 2
==========================================
#void
--> string-
string->list string->utf8 string-ci<=? string-ci>=? string-copy! string-for-each string-ref
string->number string->vector string-ci<? string-ci>? string-downcase string-length string-split
string->symbol string-append string-ci=? string-copy string-foldcase string-map string-upcase
--> (string->utf8 "Hello, World!")
#u8(72 101 108 108 111 44 32 87 111 114 108 100 33)
--> (utf8->string #(72 101 108 108 111 44 32 87 111 114 108 100 33))](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:q7ptrlrah722jvmjsjyjvhrz/bafkreig3i2e7ve2o5wvcr2t5qtgohp4jtce333ff4oq46ksgddyoef37zu)
