proc unless {condition body} {
        uplevel [list if "!($condition)" $body]
    }