let rec dig l x = if (x = 0) then l else dig (x%10 :: l) (x/10)
let rec gen l n = if (n = 0) then l else gen (dig l n) (n-1)

Можно ли как-нибудь покороче записать подобные конструкции? Многословно как-то, if бесит...
Наверняка на Хаскеле раза в два короче можно, но меня интересует ситуация в окамле...