import System.Environment

import Text.Template

main :: IO ()
main = do
	fp : _ <- getArgs
	t <- readFile fp
	mr <- template convert get t
	maybe (return ()) putStr mr

convert :: String -> [String]
convert "name" = ["Yoshikuni", "Kazuhiro"]
convert "i" = map show [1 :: Int ..]
convert _ = []

get :: String -> IO [String]
get = mapM readFile . (`map` ["1", "2"]) . (++) . ("samples/" ++)