iSortAux x (y:z) = 
    if x < y
    then 
        x : (y : z)
    else
        y : (iSortAux x z)
iSortAux x (y:z) = 
    if x < y
    then 
        x : (y : z)
    else
        y : (iSortAux x z)
iSortAux x (y:z) = 
    if x < y
    then 
        x : (y : z)
    else
        y : (iSortAux x z)