ex 1.10, revised

removeFst :: Int -> [Int] -> [Int]
removeFst m xs 			= mvOne m xs []

mvOne :: Int -> [Int] -> [Int] -> [Int]
mvOne m [] ys 			= mvAll [] ys
mvOne m (x:xs) ys		| m /= x        = mvOne m xs (x : ys)  
				| m == x        = mvAll xs ys

mvAll :: [Int] ->[Int] -> [Int]
mvAll [] ys 			= reverse ys
mvAll (x:xs) ys			= mvAll xs (x : ys)