Комбинация ThreadPoolExecutor и ArrayBlockingQueue не работает

Для возврата списка [Integer]

import Data.Char
toDigits :: Integer -> [Integer]
toDigits n = map (\x -> toInteger (digitToInt x)) (show n)