Adicionando duas funções juntas no Haskell

Olá, sou novo em Haskell e me deparei com um problema interessante, mas não tinha muita certeza de como iria resolvê-lo. Estou prestes a mostrar apenas duas partes da pergunta como exemplo.

A questão é que devemos inserir um número entre 13 e 15 dígitos. então, a partir desse número, removemos o último número. como 19283828382133 deve colocar exatamente o mesmo número, sem os 3 finais, 1928382838213.

Então, cada dígito ímpar (e não o número) desses números será dobrado. Então você terá 2,9,4,8,6 etc

Este é o meu código até agora. Como você pode ver no código, consegui concluir essas duas partes individualmente (trabalhando), mas não tenho certeza de comoEu os adicionaria.

lastdigit :: Integer -> Integer -- This Function removes the last number
lastdigit x = x`div`10

doubleOdd (x:xs) = (2*x):(doubleEven xs) -- This function doubles every odd digit not number.
doubleOdd [] = []
doubleEven (x:xs) = x:(doubleOdd xs)
doubleEven [] = []

Então, para explicar melhor o programa que estou tentando criar, primeiro passo na etapa de digitar o número entre 13 e 15 dígitos. Em seguida, ele primeiro removerá o último número e passará automaticamente para a próxima etapa de duplicar cada dígito ímpar (não o número). obrigado

questionAnswers(3)

yourAnswerToTheQuestion