: take-one ( seq-table horizontal-n vertical-n -- item )
[ 1- ] bi@
[ swap nth ] [ swap nth ] bi* ;