module Main where

data Person = Person
  { name :: String
  , hobby :: [String]
  , status :: String
  , origin :: String
  , quote :: String
  , socialNetwork :: String
  }

fugoou :: Person
fugoou = Person
  { name = "Nicko Fajar"
  , hobby = ["Watching Anime", "Reading Manga", "Reading Novel"]
  , status = "Student"
  , origin = "Indonesia"
  , quote = "Nothing is easy, but nothing is impossible."
  , socialNetwork = "Connect with me on http://my.social-networking.me"
  }

main :: IO ()
main = do
  putStrLn $ "Hello, I'm " ++ name fugoou ++ "."
  putStrLn $ "I am a " ++ status fugoou ++ " from " ++ origin fugoou ++ "."
  putStrLn "My Hobbies include:"
  mapM_ putStrLn $ map (\h -> "- " ++ h) (hobby fugoou)
  putStrLn $ "One of my favorite quotes: \"" ++ quote fugoou ++ "\""
  putStrLn $ "Let's connect on my social network: " ++ socialNetwork fugoou