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
16 y.o
first account @XChillDS
- Jambi, Indonesia
-
00:42
(UTC +07:00) - https://my.social-networking.me
- MampirOmLoliChanKawai
- 66.66.66.69
- @nickofajar_0
- @Arctixy
Highlights
Block or Report
Block or report fugoou
Report abuse
Contact GitHub support about this user’s behavior. Learn more about reporting abuse.
Report abusePinned
Something went wrong, please refresh the page to try again.
If the problem persists, check the GitHub status page or contact support.
If the problem persists, check the GitHub status page or contact support.