! untested

: >mlist ( seq -- mlist )
mlist new 
[ over length [ >>count ] [ 2 * >>last# ] bi ]
swap [ V{ } clone [ { [ 1+ 2 * ] [ _ nth ] [ 2 * ] [ 2 * 1+ ] } cleave  [ _ set-nth ] 2bi@ ] each ] keep
>>table ;