import System.Environment teststring a _ 0 = a teststring a b n = a ++ "*(" ++ teststring a b (n-1) ++ "+" ++ b ++ ")+" ++ teststring a b (n-1) main = do args <- getArgs let n = read $ args !! 0 a = args !! 1 b = args !! 2 putStr $ teststring a b n