lo5.tcl

proc lo5 {who} {
    upvar #0 sender sender;
    set blank {                            };
    set prefix [string range $blank 0 [string length $sender(nick)]];
    puts "$sender(nick) \\o/   \\o/ $who";
    puts "$prefix \\\\_ _//";
    puts "$prefix /\\   /\\";
}