module Exercise_6 where

import Data.Ratio
import Control.Arrow

{-WETT-}
traceFractran xs n = n : traceFractran xs `concatMap` lookup 1 (map (denominator &&& numerator <<< (* fromIntegral n)) xs)
{-TTEW-}