init' :: Rat -> Rat -> OState
init' xl yl =
    if xl < 1%1 && yl < 1%1
        then initxy xl yl
        else
            if xl < 1%1
                then initx xl
                else
                    if yl < 1%1
                        then inity yl
                        else initial
init' :: Rat -> Rat -> OState
init' xl yl =
    if xl < 1%1 && yl < 1%1
        then initxy xl yl
        else
            if xl < 1%1
                then initx xl
                else
                    if yl < 1%1
                        then inity yl
                        else initial
init' xl yl =
    if xl < 1%1 && yl < 1%1
        then initxy xl yl
        else
            if xl < 1%1
                then initx xl
                else
                    if yl < 1%1
                        then inity yl
                        else initial