module Exercise_6 where

import Data.Ratio

{-WETT-}
traceFractran :: [Rational] -> Integer -> [Integer]
traceFractran rs n = let rsf = filter (\x -> denominator x == 1) [r * toRational n | r <- rs] in
    if null rsf then [n] else n : traceFractran rs (numerator $ head rsf)
{-TTEW-}