Please write a function in Haskell which does the following, without using any prelude functions or importing any libraries. Make relevant helper functions where needed.

Create a function that takes a positive integer and returns the next bigger number that can be formed by rearranging its digits. If the digits can't be rearranged to form a bigger number, return 1 For example, Input: 513 Output: 531 Note: No imports are allowed