set time "[expr [lindex [split $time ":"] 0] - 1]:[lindex [split $time ":"] 1]"