repeat with each item word in [
	"A",
	"BARK",
	"BOOK",
	"TREAT",
	"COMMON",
	"SQUAD",
	"CONFUSE"
        ]
	put CanMakeWord(word)
end repeat