set seconds [clock seconds]
puts "The time is [clock format $seconds]"

proc greeting {lang} {
    switch $lang {
	en {
	    return "Hello, how is it going?"
	}
	it {
	    return "Buon giorno, come va?"
	}
	fr {
	    return "Bonjour, .......?"
	}
	de {
	    return "Guten Tag, wie gehts?"
	}
	zt {
	    return "Grüezi, wi gaat's?"
	}
    }
}