{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeApplications #-}

import Control.Applicative
import qualified Control.Monad as CM
import Control.Monad.Identity
import qualified Control.Monad.ST as ST
import Control.Monad.State
import qualified Data.Array as A
import qualified Data.Array.IO as AI
import qualified Data.Array.ST as AST
import qualified Data.ByteString.Builder as BB
import qualified Data.ByteString.Char8 as BS
import qualified Data.Char as Ch
import qualified Data.List as L
import qualified Data.Map.Strict as Map
import qualified Data.Set as Set
import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Vector.Unboxed as VU
import qualified Data.Vector.Unboxed as VUM
import Prelude hiding (print)

cin :: Sanao a => IO a
cin = sanao <$> BS.getLine

------------------------------------------------------

main = do
  s <- cin @Int
  CM.forM_ [1..s] $ \i -> do
    putStrLn"Hello! You're new here, right? It's nice to meet you."

-------------------------------------------------------
type Moji = BS.ByteString

print :: Show a => a -> IO ()
print x = BS.putStrLn $ BS.pack $ show x

class Sanao a where
  sanao :: Moji -> a
  {-# MINIMAL sanao #-}

instance Sanao Moji where
  sanao = id

instance Sanao Int where
  sanao x = case BS.readInt x of
    Nothing -> error "ここはInt"
    Just (a, _) -> a

instance Sanao Double where
  sanao x = case BS.readInt x of
    Nothing -> error "ここはDouble"
    Just (a, _) -> realToFrac a

instance Sanao [Moji] where
  sanao = BS.words

instance (Sanao a) => Sanao [a] where
  sanao = map sanao . BS.words

instance Sanao (Int, Int) where
  sanao = (\[a, b] -> (a, b)) . map sanao . BS.words

instance Sanao (Int, Int, Int) where
  sanao = (\[a, b, c] -> (a, b, c)) . map sanao . BS.words

instance Sanao (Int, Int, Int, Int) where
  sanao = (\[a, b, c, d] -> (a, b, c, d)) . map sanao . BS.words

instance Sanao (Double, Double) where
  sanao = (\[a, b] -> (a, b)) . map sanao . BS.words

instance Sanao (Double, Double, Double) where
  sanao = (\[a, b, c] -> (a, b, c)) . map sanao . BS.words

instance Sanao (Double, Double, Double, Double) where
  sanao = (\[a, b, c, d] -> (a, b, c, d)) . map sanao . BS.words

instance Sanao (Moji, Int) where
  sanao = (\[a, b] -> (a, sanao b)) . BS.words

instance Sanao (Moji, Int, Int) where
  sanao = (\[a, b, c] -> (a, sanao b, sanao c)) . BS.words

instance Sanao (Int, Moji) where
  sanao = (\[a, b] -> (sanao a, b)) . BS.words

instance Sanao (Moji, Double) where
  sanao = (\[a, b] -> (a, sanao b)) . BS.words

instance Sanao (Double, Moji) where
  sanao = (\[a, b] -> (sanao a, b)) . BS.words