(use-modules (aiscm core))
(define l (list (list (rgb 1 2 3) (rgb 4 5 6)) (list (rgb 2 3 4) (rgb 5 6 7))))
(define a (to-array l))
a
# < multiarray < rgb < int<8,unsigned>>,2 > > :
( ( ( rgb 1 2 3 ) ( rgb 4 5 6 ) )
  ( ( rgb 2 3 4 ) ( rgb 5 6 7 ) ) )
(to-list a)
( ( ( rgb 1 2 3 ) ( rgb 2 3 4 ) ) ( ( rgb 4 5 6 ) ( rgb 5 6 7 ) ) )

(use-modules (aiscm core))
(define l (list (list (rgb 1 2 3) (rgb 4 5 6)) (list (rgb 2 3 4) (rgb 5 6 7))))
(define a (to-array l))
a
# < multiarray < rgb < int<8,unsigned>>,2 > > :
( ( ( rgb 1 2 3 ) ( rgb 4 5 6 ) )
  ( ( rgb 2 3 4 ) ( rgb 5 6 7 ) ) )
(to-list a)
( ( ( rgb 1 2 3 ) ( rgb 2 3 4 ) ) ( ( rgb 4 5 6 ) ( rgb 5 6 7 ) ) )
