import Control.Arrow --https://stackoverflow.com/questions/40297001/split-a-list-at-the-first-occurrence-of-an-element --splitList splitAtFirst :: Eq a => a -> [a] -> ([a], [a]) splitAtFirst x = (id *** drop 1) . break (x ==) makeString :: Int -> String makeString 1 = "1:00AM" foo :: ([Char],[Char]) -> Int foo (hc,sc) | elem 'P' sc = 12+(read hc :: Int) | otherwise = read (init(init sc)) :: Int divi :: Int -> Int -> Int divi x y = x `quot` y main = do print ('P' `elem` "30PM") let x = makeString 1 let c = (splitAtFirst ':' x) print c print (foo c) print (foo $ splitAtFirst ':' x) print (divi 61 60) print (show 5) print $ show (read (show 5) :: Double) print (init (init "hellos")) print (quot (13*60) 60) print (rem (13*60) 60) print (length "shill")