data User = User {
  userName :: String,
  userAge :: Int,
  userIsVip :: Bool
}

printUser :: User -> String
printUser User { userName, userAge, userIsVip } =
  "name: " ++ userName
  ++ ", age: " ++ show userAge
  ++ ", isVip: " ++ show userIsVip

main :: IO ()
main = do
  let user = User { userName = "Kojo", userAge = 20, userIsVip = True }
  putStrLn $ printUser user