print$r=$r/2|16448*$r&4**7,$/for-99..($r=1)