Execute Tcl Online

#gets stdin cha
#gets stdin num
#for {set i 0} {$i<$num} {incr i} {
 #   puts "$cha"
#}


#set a 1
#while {$a} {
 #gets stdin nu
 #if {$nu<10} {
  #   puts "$nu"
 #} else {set a 0}

#}

#set a 1
#while {$a} {
#    gets stdin n
 #   if {$n != 0} {
  #      for {set i 0} {$i<$n} {incr i} {
   #      puts "*"
    #    }
    #} else {set a 0}
#}


#gets stdin n
#for {set i 0} {$i<$n} {incr i} {
 #for {set j 0} {$j<$n} {incr j} {
  #   puts -nonewline "*"
 #}
 #puts ""
#}

#gets stdin m
#for {set i 1} {$i<11} {incr i} {
 #   puts "[expr {$i*$m}]"
#}


set n 0
set nu 1
set y($n) [gets stdin]
set y($nu) [gets stdin]
set x($n) [gets stdin]
set x($nu) [gets stdin]
puts "$x(1)"
if {$x(1)>$y(1)} {
  puts "h"
 # set a [expr {{$x(1)+60}-$y(1)}]
  #set b [expr {{$x(0)-1}-$y(0)}]
  }
 # puts -nonewline " $b $a"