[[[dup @:] dip swap] [swap $ ,: sysout] [1 + [pt] left pop] ifte] `pt def;