read a b c
read k
for i in `seq $k`
do
    if((!(a<b)))
    then
        b=$((b*2))
    elif((!(b<c)))
    then
        c=$((c*2))
    else
        break
    fi
done
((a<b&&b<c)) && echo Yes || echo No
