new-chain
* new-chain ( "name" -- )

create a new chain and register in chain-link
 : new-chain create: 0 , ['] noop , chain-link link, ;
layout of a chain:
/cell field ->chain.link
/cell field ->chain.exec
/cell field ->chain.next

EXTENSIONS chain defining primitive