Added STOUT routine and STR macro