GENERIC: tail** ( seq obj -- seq )

M: integer   tail** ( seq i    -- seq )                tail ;
M: quotation tail** ( seq quot -- seq ) dupd find drop tail ;