! Copyright (C) 2011 Your name. ! See http://factorcode.org/license.txt for BSD license. USING: kernel ui syntax accessors prettyprint ; IN: buggy1 : buggy-word1 ( x y -- x ) >>name ; : buggy-word2 ( x y -- x ) [ . ] dip ; : run ( w x y -- a ) buggy-word1 buggy-word2 ; MAIN: run