lak x y (z:zs) | z == x    = y : lak x y zs
               | otherwise = z : lak x y zs
lak x y (z:zs) | z == x    = y : lak x y zs
               | otherwise = z : lak x y zs
lak x y (z:zs) | z == x    = y : lak x y zs
               | otherwise = z : lak x y zs