module Exercise01 where

import Test.QuickCheck

{-H1.1a)-}
myPair :: Integer -> Integer -> Integer
myPair x y = (2 ^ y) * (2 * x + 1) - 1 

{-H1.1b)-}
mySnd :: Integer -> Integer
mySnd n
    | even n    = 0
    | otherwise = mySnd (n `div` 2) + 1

{-H1.1c)-}
myFst :: Integer -> Integer
myFst n
    | even n    = n `div` 2
    | otherwise = myFst (n `div` 2)

{-H1.1d)-}
prop_myPair :: Integer -> Integer -> Integer -> Property
prop_myPair p x y =
    x > 0 && y > 0 && p > 0 ==> myFst p == x && mySnd p == y && p == myPair x y

{-H2-}
digitToEo :: Integer -> String
digitToEo 0 = "nul"
digitToEo 1 = "unu"
digitToEo 2 = "du"
digitToEo 3 = "tri"
digitToEo 4 = "kvar"
digitToEo 5 = "kvin"
digitToEo 6 = "ses"
digitToEo 7 = "sep"
digitToEo 8 = "ok"
digitToEo 9 = "nau"

{-WETT-}
uglyHelper :: Int -> Int -> String
uglyHelper _ 0 = ""
uglyHelper n 1 = lines"unu \nmil \nunu miliono \nunu miliardo \nunu duiliono \nunu duiliardo \nunu triiliono \nunu triiliardo \nunu kvariliono \nunu kvariliardo \nunu kviniliono \nunu kviniliardo \nunu sesiliono \nunu sesiliardo \nunu sepiliono \nunu sepiliardo \nunu okiliono \nunu okiliardo \nunu nauiliono \nunu nauiliardo \nunu dekiliono \nunu dekiliardo " !! n 
uglyHelper n x = lines"\n\ndu\ntri\nkvar\nkvin\nses\nsep\nok\nnau\ndek\ndek unu\ndek du\ndek tri\ndek kvar\ndek kvin\ndek ses\ndek sep\ndek ok\ndek nau\ndudek\ndudek unu\ndudek du\ndudek tri\ndudek kvar\ndudek kvin\ndudek ses\ndudek sep\ndudek ok\ndudek nau\ntridek\ntridek unu\ntridek du\ntridek tri\ntridek kvar\ntridek kvin\ntridek ses\ntridek sep\ntridek ok\ntridek nau\nkvardek\nkvardek unu\nkvardek du\nkvardek tri\nkvardek kvar\nkvardek kvin\nkvardek ses\nkvardek sep\nkvardek ok\nkvardek nau\nkvindek\nkvindek unu\nkvindek du\nkvindek tri\nkvindek kvar\nkvindek kvin\nkvindek ses\nkvindek sep\nkvindek ok\nkvindek nau\nsesdek\nsesdek unu\nsesdek du\nsesdek tri\nsesdek kvar\nsesdek kvin\nsesdek ses\nsesdek sep\nsesdek ok\nsesdek nau\nsepdek\nsepdek unu\nsepdek du\nsepdek tri\nsepdek kvar\nsepdek kvin\nsepdek ses\nsepdek sep\nsepdek ok\nsepdek nau\nokdek\nokdek unu\nokdek du\nokdek tri\nokdek kvar\nokdek kvin\nokdek ses\nokdek sep\nokdek ok\nokdek nau\nnaudek\nnaudek unu\nnaudek du\nnaudek tri\nnaudek kvar\nnaudek kvin\nnaudek ses\nnaudek sep\nnaudek ok\nnaudek nau\ncent\ncent unu\ncent du\ncent tri\ncent kvar\ncent kvin\ncent ses\ncent sep\ncent ok\ncent nau\ncent dek\ncent dek unu\ncent dek du\ncent dek tri\ncent dek kvar\ncent dek kvin\ncent dek ses\ncent dek sep\ncent dek ok\ncent dek nau\ncent dudek\ncent dudek unu\ncent dudek du\ncent dudek tri\ncent dudek kvar\ncent dudek kvin\ncent dudek ses\ncent dudek sep\ncent dudek ok\ncent dudek nau\ncent tridek\ncent tridek unu\ncent tridek du\ncent tridek tri\ncent tridek kvar\ncent tridek kvin\ncent tridek ses\ncent tridek sep\ncent tridek ok\ncent tridek nau\ncent kvardek\ncent kvardek unu\ncent kvardek du\ncent kvardek tri\ncent kvardek kvar\ncent kvardek kvin\ncent kvardek ses\ncent kvardek sep\ncent kvardek ok\ncent kvardek nau\ncent kvindek\ncent kvindek unu\ncent kvindek du\ncent kvindek tri\ncent kvindek kvar\ncent kvindek kvin\ncent kvindek ses\ncent kvindek sep\ncent kvindek ok\ncent kvindek nau\ncent sesdek\ncent sesdek unu\ncent sesdek du\ncent sesdek tri\ncent sesdek kvar\ncent sesdek kvin\ncent sesdek ses\ncent sesdek sep\ncent sesdek ok\ncent sesdek nau\ncent sepdek\ncent sepdek unu\ncent sepdek du\ncent sepdek tri\ncent sepdek kvar\ncent sepdek kvin\ncent sepdek ses\ncent sepdek sep\ncent sepdek ok\ncent sepdek nau\ncent okdek\ncent okdek unu\ncent okdek du\ncent okdek tri\ncent okdek kvar\ncent okdek kvin\ncent okdek ses\ncent okdek sep\ncent okdek ok\ncent okdek nau\ncent naudek\ncent naudek unu\ncent naudek du\ncent naudek tri\ncent naudek kvar\ncent naudek kvin\ncent naudek ses\ncent naudek sep\ncent naudek ok\ncent naudek nau\nducent\nducent unu\nducent du\nducent tri\nducent kvar\nducent kvin\nducent ses\nducent sep\nducent ok\nducent nau\nducent dek\nducent dek unu\nducent dek du\nducent dek tri\nducent dek kvar\nducent dek kvin\nducent dek ses\nducent dek sep\nducent dek ok\nducent dek nau\nducent dudek\nducent dudek unu\nducent dudek du\nducent dudek tri\nducent dudek kvar\nducent dudek kvin\nducent dudek ses\nducent dudek sep\nducent dudek ok\nducent dudek nau\nducent tridek\nducent tridek unu\nducent tridek du\nducent tridek tri\nducent tridek kvar\nducent tridek kvin\nducent tridek ses\nducent tridek sep\nducent tridek ok\nducent tridek nau\nducent kvardek\nducent kvardek unu\nducent kvardek du\nducent kvardek tri\nducent kvardek kvar\nducent kvardek kvin\nducent kvardek ses\nducent kvardek sep\nducent kvardek ok\nducent kvardek nau\nducent kvindek\nducent kvindek unu\nducent kvindek du\nducent kvindek tri\nducent kvindek kvar\nducent kvindek kvin\nducent kvindek ses\nducent kvindek sep\nducent kvindek ok\nducent kvindek nau\nducent sesdek\nducent sesdek unu\nducent sesdek du\nducent sesdek tri\nducent sesdek kvar\nducent sesdek kvin\nducent sesdek ses\nducent sesdek sep\nducent sesdek ok\nducent sesdek nau\nducent sepdek\nducent sepdek unu\nducent sepdek du\nducent sepdek tri\nducent sepdek kvar\nducent sepdek kvin\nducent sepdek ses\nducent sepdek sep\nducent sepdek ok\nducent sepdek nau\nducent okdek\nducent okdek unu\nducent okdek du\nducent okdek tri\nducent okdek kvar\nducent okdek kvin\nducent okdek ses\nducent okdek sep\nducent okdek ok\nducent okdek nau\nducent naudek\nducent naudek unu\nducent naudek du\nducent naudek tri\nducent naudek kvar\nducent naudek kvin\nducent naudek ses\nducent naudek sep\nducent naudek ok\nducent naudek nau\ntricent\ntricent unu\ntricent du\ntricent tri\ntricent kvar\ntricent kvin\ntricent ses\ntricent sep\ntricent ok\ntricent nau\ntricent dek\ntricent dek unu\ntricent dek du\ntricent dek tri\ntricent dek kvar\ntricent dek kvin\ntricent dek ses\ntricent dek sep\ntricent dek ok\ntricent dek nau\ntricent dudek\ntricent dudek unu\ntricent dudek du\ntricent dudek tri\ntricent dudek kvar\ntricent dudek kvin\ntricent dudek ses\ntricent dudek sep\ntricent dudek ok\ntricent dudek nau\ntricent tridek\ntricent tridek unu\ntricent tridek du\ntricent tridek tri\ntricent tridek kvar\ntricent tridek kvin\ntricent tridek ses\ntricent tridek sep\ntricent tridek ok\ntricent tridek nau\ntricent kvardek\ntricent kvardek unu\ntricent kvardek du\ntricent kvardek tri\ntricent kvardek kvar\ntricent kvardek kvin\ntricent kvardek ses\ntricent kvardek sep\ntricent kvardek ok\ntricent kvardek nau\ntricent kvindek\ntricent kvindek unu\ntricent kvindek du\ntricent kvindek tri\ntricent kvindek kvar\ntricent kvindek kvin\ntricent kvindek ses\ntricent kvindek sep\ntricent kvindek ok\ntricent kvindek nau\ntricent sesdek\ntricent sesdek unu\ntricent sesdek du\ntricent sesdek tri\ntricent sesdek kvar\ntricent sesdek kvin\ntricent sesdek ses\ntricent sesdek sep\ntricent sesdek ok\ntricent sesdek nau\ntricent sepdek\ntricent sepdek unu\ntricent sepdek du\ntricent sepdek tri\ntricent sepdek kvar\ntricent sepdek kvin\ntricent sepdek ses\ntricent sepdek sep\ntricent sepdek ok\ntricent sepdek nau\ntricent okdek\ntricent okdek unu\ntricent okdek du\ntricent okdek tri\ntricent okdek kvar\ntricent okdek kvin\ntricent okdek ses\ntricent okdek sep\ntricent okdek ok\ntricent okdek nau\ntricent naudek\ntricent naudek unu\ntricent naudek du\ntricent naudek tri\ntricent naudek kvar\ntricent naudek kvin\ntricent naudek ses\ntricent naudek sep\ntricent naudek ok\ntricent naudek nau\nkvarcent\nkvarcent unu\nkvarcent du\nkvarcent tri\nkvarcent kvar\nkvarcent kvin\nkvarcent ses\nkvarcent sep\nkvarcent ok\nkvarcent nau\nkvarcent dek\nkvarcent dek unu\nkvarcent dek du\nkvarcent dek tri\nkvarcent dek kvar\nkvarcent dek kvin\nkvarcent dek ses\nkvarcent dek sep\nkvarcent dek ok\nkvarcent dek nau\nkvarcent dudek\nkvarcent dudek unu\nkvarcent dudek du\nkvarcent dudek tri\nkvarcent dudek kvar\nkvarcent dudek kvin\nkvarcent dudek ses\nkvarcent dudek sep\nkvarcent dudek ok\nkvarcent dudek nau\nkvarcent tridek\nkvarcent tridek unu\nkvarcent tridek du\nkvarcent tridek tri\nkvarcent tridek kvar\nkvarcent tridek kvin\nkvarcent tridek ses\nkvarcent tridek sep\nkvarcent tridek ok\nkvarcent tridek nau\nkvarcent kvardek\nkvarcent kvardek unu\nkvarcent kvardek du\nkvarcent kvardek tri\nkvarcent kvardek kvar\nkvarcent kvardek kvin\nkvarcent kvardek ses\nkvarcent kvardek sep\nkvarcent kvardek ok\nkvarcent kvardek nau\nkvarcent kvindek\nkvarcent kvindek unu\nkvarcent kvindek du\nkvarcent kvindek tri\nkvarcent kvindek kvar\nkvarcent kvindek kvin\nkvarcent kvindek ses\nkvarcent kvindek sep\nkvarcent kvindek ok\nkvarcent kvindek nau\nkvarcent sesdek\nkvarcent sesdek unu\nkvarcent sesdek du\nkvarcent sesdek tri\nkvarcent sesdek kvar\nkvarcent sesdek kvin\nkvarcent sesdek ses\nkvarcent sesdek sep\nkvarcent sesdek ok\nkvarcent sesdek nau\nkvarcent sepdek\nkvarcent sepdek unu\nkvarcent sepdek du\nkvarcent sepdek tri\nkvarcent sepdek kvar\nkvarcent sepdek kvin\nkvarcent sepdek ses\nkvarcent sepdek sep\nkvarcent sepdek ok\nkvarcent sepdek nau\nkvarcent okdek\nkvarcent okdek unu\nkvarcent okdek du\nkvarcent okdek tri\nkvarcent okdek kvar\nkvarcent okdek kvin\nkvarcent okdek ses\nkvarcent okdek sep\nkvarcent okdek ok\nkvarcent okdek nau\nkvarcent naudek\nkvarcent naudek unu\nkvarcent naudek du\nkvarcent naudek tri\nkvarcent naudek kvar\nkvarcent naudek kvin\nkvarcent naudek ses\nkvarcent naudek sep\nkvarcent naudek ok\nkvarcent naudek nau\nkvincent\nkvincent unu\nkvincent du\nkvincent tri\nkvincent kvar\nkvincent kvin\nkvincent ses\nkvincent sep\nkvincent ok\nkvincent nau\nkvincent dek\nkvincent dek unu\nkvincent dek du\nkvincent dek tri\nkvincent dek kvar\nkvincent dek kvin\nkvincent dek ses\nkvincent dek sep\nkvincent dek ok\nkvincent dek nau\nkvincent dudek\nkvincent dudek unu\nkvincent dudek du\nkvincent dudek tri\nkvincent dudek kvar\nkvincent dudek kvin\nkvincent dudek ses\nkvincent dudek sep\nkvincent dudek ok\nkvincent dudek nau\nkvincent tridek\nkvincent tridek unu\nkvincent tridek du\nkvincent tridek tri\nkvincent tridek kvar\nkvincent tridek kvin\nkvincent tridek ses\nkvincent tridek sep\nkvincent tridek ok\nkvincent tridek nau\nkvincent kvardek\nkvincent kvardek unu\nkvincent kvardek du\nkvincent kvardek tri\nkvincent kvardek kvar\nkvincent kvardek kvin\nkvincent kvardek ses\nkvincent kvardek sep\nkvincent kvardek ok\nkvincent kvardek nau\nkvincent kvindek\nkvincent kvindek unu\nkvincent kvindek du\nkvincent kvindek tri\nkvincent kvindek kvar\nkvincent kvindek kvin\nkvincent kvindek ses\nkvincent kvindek sep\nkvincent kvindek ok\nkvincent kvindek nau\nkvincent sesdek\nkvincent sesdek unu\nkvincent sesdek du\nkvincent sesdek tri\nkvincent sesdek kvar\nkvincent sesdek kvin\nkvincent sesdek ses\nkvincent sesdek sep\nkvincent sesdek ok\nkvincent sesdek nau\nkvincent sepdek\nkvincent sepdek unu\nkvincent sepdek du\nkvincent sepdek tri\nkvincent sepdek kvar\nkvincent sepdek kvin\nkvincent sepdek ses\nkvincent sepdek sep\nkvincent sepdek ok\nkvincent sepdek nau\nkvincent okdek\nkvincent okdek unu\nkvincent okdek du\nkvincent okdek tri\nkvincent okdek kvar\nkvincent okdek kvin\nkvincent okdek ses\nkvincent okdek sep\nkvincent okdek ok\nkvincent okdek nau\nkvincent naudek\nkvincent naudek unu\nkvincent naudek du\nkvincent naudek tri\nkvincent naudek kvar\nkvincent naudek kvin\nkvincent naudek ses\nkvincent naudek sep\nkvincent naudek ok\nkvincent naudek nau\nsescent\nsescent unu\nsescent du\nsescent tri\nsescent kvar\nsescent kvin\nsescent ses\nsescent sep\nsescent ok\nsescent nau\nsescent dek\nsescent dek unu\nsescent dek du\nsescent dek tri\nsescent dek kvar\nsescent dek kvin\nsescent dek ses\nsescent dek sep\nsescent dek ok\nsescent dek nau\nsescent dudek\nsescent dudek unu\nsescent dudek du\nsescent dudek tri\nsescent dudek kvar\nsescent dudek kvin\nsescent dudek ses\nsescent dudek sep\nsescent dudek ok\nsescent dudek nau\nsescent tridek\nsescent tridek unu\nsescent tridek du\nsescent tridek tri\nsescent tridek kvar\nsescent tridek kvin\nsescent tridek ses\nsescent tridek sep\nsescent tridek ok\nsescent tridek nau\nsescent kvardek\nsescent kvardek unu\nsescent kvardek du\nsescent kvardek tri\nsescent kvardek kvar\nsescent kvardek kvin\nsescent kvardek ses\nsescent kvardek sep\nsescent kvardek ok\nsescent kvardek nau\nsescent kvindek\nsescent kvindek unu\nsescent kvindek du\nsescent kvindek tri\nsescent kvindek kvar\nsescent kvindek kvin\nsescent kvindek ses\nsescent kvindek sep\nsescent kvindek ok\nsescent kvindek nau\nsescent sesdek\nsescent sesdek unu\nsescent sesdek du\nsescent sesdek tri\nsescent sesdek kvar\nsescent sesdek kvin\nsescent sesdek ses\nsescent sesdek sep\nsescent sesdek ok\nsescent sesdek nau\nsescent sepdek\nsescent sepdek unu\nsescent sepdek du\nsescent sepdek tri\nsescent sepdek kvar\nsescent sepdek kvin\nsescent sepdek ses\nsescent sepdek sep\nsescent sepdek ok\nsescent sepdek nau\nsescent okdek\nsescent okdek unu\nsescent okdek du\nsescent okdek tri\nsescent okdek kvar\nsescent okdek kvin\nsescent okdek ses\nsescent okdek sep\nsescent okdek ok\nsescent okdek nau\nsescent naudek\nsescent naudek unu\nsescent naudek du\nsescent naudek tri\nsescent naudek kvar\nsescent naudek kvin\nsescent naudek ses\nsescent naudek sep\nsescent naudek ok\nsescent naudek nau\nsepcent\nsepcent unu\nsepcent du\nsepcent tri\nsepcent kvar\nsepcent kvin\nsepcent ses\nsepcent sep\nsepcent ok\nsepcent nau\nsepcent dek\nsepcent dek unu\nsepcent dek du\nsepcent dek tri\nsepcent dek kvar\nsepcent dek kvin\nsepcent dek ses\nsepcent dek sep\nsepcent dek ok\nsepcent dek nau\nsepcent dudek\nsepcent dudek unu\nsepcent dudek du\nsepcent dudek tri\nsepcent dudek kvar\nsepcent dudek kvin\nsepcent dudek ses\nsepcent dudek sep\nsepcent dudek ok\nsepcent dudek nau\nsepcent tridek\nsepcent tridek unu\nsepcent tridek du\nsepcent tridek tri\nsepcent tridek kvar\nsepcent tridek kvin\nsepcent tridek ses\nsepcent tridek sep\nsepcent tridek ok\nsepcent tridek nau\nsepcent kvardek\nsepcent kvardek unu\nsepcent kvardek du\nsepcent kvardek tri\nsepcent kvardek kvar\nsepcent kvardek kvin\nsepcent kvardek ses\nsepcent kvardek sep\nsepcent kvardek ok\nsepcent kvardek nau\nsepcent kvindek\nsepcent kvindek unu\nsepcent kvindek du\nsepcent kvindek tri\nsepcent kvindek kvar\nsepcent kvindek kvin\nsepcent kvindek ses\nsepcent kvindek sep\nsepcent kvindek ok\nsepcent kvindek nau\nsepcent sesdek\nsepcent sesdek unu\nsepcent sesdek du\nsepcent sesdek tri\nsepcent sesdek kvar\nsepcent sesdek kvin\nsepcent sesdek ses\nsepcent sesdek sep\nsepcent sesdek ok\nsepcent sesdek nau\nsepcent sepdek\nsepcent sepdek unu\nsepcent sepdek du\nsepcent sepdek tri\nsepcent sepdek kvar\nsepcent sepdek kvin\nsepcent sepdek ses\nsepcent sepdek sep\nsepcent sepdek ok\nsepcent sepdek nau\nsepcent okdek\nsepcent okdek unu\nsepcent okdek du\nsepcent okdek tri\nsepcent okdek kvar\nsepcent okdek kvin\nsepcent okdek ses\nsepcent okdek sep\nsepcent okdek ok\nsepcent okdek nau\nsepcent naudek\nsepcent naudek unu\nsepcent naudek du\nsepcent naudek tri\nsepcent naudek kvar\nsepcent naudek kvin\nsepcent naudek ses\nsepcent naudek sep\nsepcent naudek ok\nsepcent naudek nau\nokcent\nokcent unu\nokcent du\nokcent tri\nokcent kvar\nokcent kvin\nokcent ses\nokcent sep\nokcent ok\nokcent nau\nokcent dek\nokcent dek unu\nokcent dek du\nokcent dek tri\nokcent dek kvar\nokcent dek kvin\nokcent dek ses\nokcent dek sep\nokcent dek ok\nokcent dek nau\nokcent dudek\nokcent dudek unu\nokcent dudek du\nokcent dudek tri\nokcent dudek kvar\nokcent dudek kvin\nokcent dudek ses\nokcent dudek sep\nokcent dudek ok\nokcent dudek nau\nokcent tridek\nokcent tridek unu\nokcent tridek du\nokcent tridek tri\nokcent tridek kvar\nokcent tridek kvin\nokcent tridek ses\nokcent tridek sep\nokcent tridek ok\nokcent tridek nau\nokcent kvardek\nokcent kvardek unu\nokcent kvardek du\nokcent kvardek tri\nokcent kvardek kvar\nokcent kvardek kvin\nokcent kvardek ses\nokcent kvardek sep\nokcent kvardek ok\nokcent kvardek nau\nokcent kvindek\nokcent kvindek unu\nokcent kvindek du\nokcent kvindek tri\nokcent kvindek kvar\nokcent kvindek kvin\nokcent kvindek ses\nokcent kvindek sep\nokcent kvindek ok\nokcent kvindek nau\nokcent sesdek\nokcent sesdek unu\nokcent sesdek du\nokcent sesdek tri\nokcent sesdek kvar\nokcent sesdek kvin\nokcent sesdek ses\nokcent sesdek sep\nokcent sesdek ok\nokcent sesdek nau\nokcent sepdek\nokcent sepdek unu\nokcent sepdek du\nokcent sepdek tri\nokcent sepdek kvar\nokcent sepdek kvin\nokcent sepdek ses\nokcent sepdek sep\nokcent sepdek ok\nokcent sepdek nau\nokcent okdek\nokcent okdek unu\nokcent okdek du\nokcent okdek tri\nokcent okdek kvar\nokcent okdek kvin\nokcent okdek ses\nokcent okdek sep\nokcent okdek ok\nokcent okdek nau\nokcent naudek\nokcent naudek unu\nokcent naudek du\nokcent naudek tri\nokcent naudek kvar\nokcent naudek kvin\nokcent naudek ses\nokcent naudek sep\nokcent naudek ok\nokcent naudek nau\nnaucent\nnaucent unu\nnaucent du\nnaucent tri\nnaucent kvar\nnaucent kvin\nnaucent ses\nnaucent sep\nnaucent ok\nnaucent nau\nnaucent dek\nnaucent dek unu\nnaucent dek du\nnaucent dek tri\nnaucent dek kvar\nnaucent dek kvin\nnaucent dek ses\nnaucent dek sep\nnaucent dek ok\nnaucent dek nau\nnaucent dudek\nnaucent dudek unu\nnaucent dudek du\nnaucent dudek tri\nnaucent dudek kvar\nnaucent dudek kvin\nnaucent dudek ses\nnaucent dudek sep\nnaucent dudek ok\nnaucent dudek nau\nnaucent tridek\nnaucent tridek unu\nnaucent tridek du\nnaucent tridek tri\nnaucent tridek kvar\nnaucent tridek kvin\nnaucent tridek ses\nnaucent tridek sep\nnaucent tridek ok\nnaucent tridek nau\nnaucent kvardek\nnaucent kvardek unu\nnaucent kvardek du\nnaucent kvardek tri\nnaucent kvardek kvar\nnaucent kvardek kvin\nnaucent kvardek ses\nnaucent kvardek sep\nnaucent kvardek ok\nnaucent kvardek nau\nnaucent kvindek\nnaucent kvindek unu\nnaucent kvindek du\nnaucent kvindek tri\nnaucent kvindek kvar\nnaucent kvindek kvin\nnaucent kvindek ses\nnaucent kvindek sep\nnaucent kvindek ok\nnaucent kvindek nau\nnaucent sesdek\nnaucent sesdek unu\nnaucent sesdek du\nnaucent sesdek tri\nnaucent sesdek kvar\nnaucent sesdek kvin\nnaucent sesdek ses\nnaucent sesdek sep\nnaucent sesdek ok\nnaucent sesdek nau\nnaucent sepdek\nnaucent sepdek unu\nnaucent sepdek du\nnaucent sepdek tri\nnaucent sepdek kvar\nnaucent sepdek kvin\nnaucent sepdek ses\nnaucent sepdek sep\nnaucent sepdek ok\nnaucent sepdek nau\nnaucent okdek\nnaucent okdek unu\nnaucent okdek du\nnaucent okdek tri\nnaucent okdek kvar\nnaucent okdek kvin\nnaucent okdek ses\nnaucent okdek sep\nnaucent okdek ok\nnaucent okdek nau\nnaucent naudek\nnaucent naudek unu\nnaucent naudek du\nnaucent naudek tri\nnaucent naudek kvar\nnaucent naudek kvin\nnaucent naudek ses\nnaucent naudek sep\nnaucent naudek ok\nnaucent naudek nau" !! x
    ++ lines"\n mil\n miliono\n miliardo\n duiliono\n duiliardo\n triiliono\n triiliardo\n kvariliono\n kvariliardo\n kviniliono\n kviniliardo\n sesiliono\n sesiliardo\n sepiliono\n sepiliardo\n okiliono\n okiliardo\n nauiliono\n nauiliardo\n dekiliono\n dekiliardo" !! n 
    ++ lines" \n \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj \nj " !! n

numberToEo :: Integer -> String
numberToEo 0 = "nul"
numberToEo x = init $ uglyConverter 0 x

uglyConverter :: Int -> Integer -> String
uglyConverter _ 0 = ""
uglyConverter n x = uglyConverter (n+1) (x`div`1000) ++ uglyHelper n (fromIntegral $ x`mod`1000)
{-TTEW-}