proc cahsayhand {nick} {
    global cahplayerlist cahhand cahplayername
    if {[llength $cahhand($cahplayername) == 10]} {
        cahsaypvt $cahplayername "5 1. [lindex $cahhand($cahplayername) 0] 5 2. [lindex $cahhand($cahplayername) 1] 5 3. [lindex $cahhand($cahplayername) 2] 5 4. [lindex $cahhand($cahplayername) 3] 5 5. [lindex $cahhand($cahplayername) 4] 5 6. [lindex $cahhand($cahplayername) 5] 5 7. [lindex $cahhand($cahplayername) 6] 5 8. [lindex $cahhand($cahplayername) 7] 5 9. [lindex $cahhand($cahplayername) 8] 5 10. [lindex $cahhand($cahplayername) 9]"
    } elseif {[llength $cahhand($cahplayername) == 11]} {
        cahsaypvt $cahplayername "5 1. [lindex $cahhand($cahplayername) 0] 5 2. [lindex $cahhand($cahplayername) 1] 5 3. [lindex $cahhand($cahplayername) 2] 5 4. [lindex $cahhand($cahplayername) 3] 5 5. [lindex $cahhand($cahplayername) 4] 5 6. [lindex $cahhand($cahplayername) 5] 5 7. [lindex $cahhand($cahplayername) 6] 5 8. [lindex $cahhand($cahplayername) 7] 5 9. [lindex $cahhand($cahplayername) 8] 5 10. [lindex $cahhand($cahplayername) 9] 5 11. [lindex $cahhand($cahplayername) 10]"
    } elseif {[llength $cahhand($cahplayername) == 12]} {
        cahsaypvt $cahplayername "5 1. [lindex $cahhand($cahplayername) 0] 5 2. [lindex $cahhand($cahplayername) 1] 5 3. [lindex $cahhand($cahplayername) 2] 5 4. [lindex $cahhand($cahplayername) 3] 5 5. [lindex $cahhand($cahplayername) 4] 5 6. [lindex $cahhand($cahplayername) 5] 5 7. [lindex $cahhand($cahplayername) 6] 5 8. [lindex $cahhand($cahplayername) 7] 5 9. [lindex $cahhand($cahplayername) 8] 5 10. [lindex $cahhand($cahplayername) 9] 5 11. [lindex $cahhand($cahplayername) 10] 5 12. [lindex $cahhand($cahplayername) 11]
    }