--- /dev/null
+! Copyright (C) 2012 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+USING: arrays tools.test ;
+IN: sequences.zipped
+
+{ { { 1 4 } { 2 5 } { 3 6 } } }
+[ { 1 2 3 } { 4 5 6 } <zipped> >array ] unit-test
--- /dev/null
+! Copyright (C) 2012 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+USING: accessors arrays kernel math sequences
+sequences.private ;
+IN: sequences.zipped
+
+TUPLE: zipped
+{ keys sequence read-only }
+{ values sequence read-only } ;
+
+C: <zipped> zipped
+
+M: zipped length
+ [ keys>> ] [ values>> ] bi min-length ;
+
+M: zipped nth-unsafe
+ [ keys>> nth-unsafe ] [ values>> nth-unsafe ] 2bi 2array ;
+
+INSTANCE: zipped immutable-sequence