repeat {say $_=get}while (1>$_);say(get)xx 4