import Data.Char
import Data.Bits

hash :: String -> Int
hash str = 783429 + (sum $ map (step) str)
  where
    step c = (((ord c) `shiftR` 4) * 31267) `mod` 4623789

secrets :: Int -> Int -> (Int, Int, Int)
secrets a b = (1, -(a + b), a * b)

main :: IO ()
main = do
  putStrLn "Name: "
  name <- getLine
  putStrLn "Pass: "
  pass <- getLine

  let nameHash = hash name
  let passHash = hash pass

  putStrLn $ show $ secrets nameHash passHash