main = interact (newLine . myTriplet)

newLine :: String -> String
newLine s = s ++ "\n"

myTriplet :: String -> String
myTriplet s = show $ triplet ( read s :: Int )

triplet :: Int -> Int
triplet x = x * x * x