Sysn from xforth