(define-system s2 ((with-a (a)))
(for-each
(lambda (e)
(format #t "Key: ~a Component: ~a~%" (get-key e) (get-component 'a e)))
(define-system s2 ((with-a (a)))
(for-each
(lambda (e)
(format #t "Key: ~a Component: ~a~%" (get-key e) (get-component 'a e)))