Write a haskell script for the following WITHOUT using the built in functions maximum, filter, or length. You have to write them from scratch if you use them.

Write a function maxThree:: Int -> Int -> Int -> (Int, Int) which works out the maximum of three integers and returns also how many times that max- imum occurs