@@ 1,4 1,6 @@ 
 ;; Public domain code. Or CC0 if your jurisdiction doesn't have the notion of PD.
+;;
+;; This code flattens a list. It is effective, but also accepts improper lists.
 
 (define (flatten lst)
   (let loop ((lst lst) (acc '()))