#!/usr/local/bin/tclsh
global argv

set Commande [join $argv " "]

if {[catch {eval $Commande} Message]} {
    puts 0
    puts $Message
} else {
    puts 1
}

exit