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