Evaluated proc shittesto1488 args {set penis [split $args " "];foreach x $penis {lappend ::globaltestlist $x}}