repeat 20
if cnt\6<=3 : x=cnt\6 : else : x=6-cnt\6
mes ""+x
loop