A haskell program that helps with untangling of rational tangles