Bool -> (Int, Bool)

move :: Bool -> (Int, Bool)
move status = (1, Status)

if (snd(move True))
    then
        do
        print "x"
        move False
else
    dosomething