module Exercise_6 where

import Data.Ratio

{-WETT-}
traceFractran :: [Rational] -> Integer -> [Integer]
traceFractran xs y = y:concat[traceFractran xs$numerator$x*fromIntegral y| x<-xs, y `mod` denominator x == 0]
{-TTEW-}