#!/usr/bin/guile16 -s
!#

(use-modules (alterator algo)
             (alterator plist))

(define (print-args x y)
  (format #t "~A:~A~%" x y))

(define (print-cmd cmd)
  (format #t "_objects:~A~%" (car cmd))
  (plist-for-each print-args (cdr cmd)))

(for-each print-cmd (read))
