DEFINE loop == [true []] dip while.

["SPAM\n" putchars] loop.