module Main where

main :: IO ()
main = do
    outputScalar 3
    outputList [1, 2, 3]

outputScalar :: (Show a, Num a) => a -> IO ()
outputScalar = print

outputList :: (Show a, Num a) => [a] -> IO ()
outputList = putStr . unlines . map show