module Main where
data Person = Person
{ name :: String
, hobby :: [String]
, status :: String
, origin :: String
, quote :: String
, website :: String
}
fugoou :: Person
fugoou = Person
{ name = "nick a.k.a fugoou"
, hobby = ["Watching Anime", "Reading Manga", "Reading Novel"]
, status = "Student"
, origin = "Indonesia"
, quote = "Nothing is easy, but nothing is impossible."
, website = "https://n4x.top"
}
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 $ "Visit my website: " ++ website fugoou