Evaluated proc ST:dongers {} {. [dongers]}
Evaluated proc ST:dongers {} {"/n" . [dongers]}
Evaluated proc ST:dongers {} {. "/n" . [dongers]}
Evaluated proc ST:dongers {} {. [dongers]}
Evaluated proc ST:moose {} {. “\n ^-^-^\\OO/^-^-^\n       (..)"}
Evaluated proc ST:moose {} {. " \n ^-^-^\\OO/^-^-^\n (..)"}
Evaluated proc ST:moose {} {. " \n ^-^-^\\OO/^-^-^\n     (..)"}
Evaluated proc ST:moose {} {. " \n^-^-^\\OO/^-^-^\n     (..)"}
Evaluated proc headon args {if {$args eq ""} {set args "Head on"}; . "$args! Apply directly to the forehead!"}
Evaluated proc headon args {if {$args eq ""} {set args "Head on"}; . "$args! Apply directly to the forehead! $args! Apply directly to the forehead! $args! Apply directly to the forehead!"}