main = do
  let test0 = 14
  let test1 = 16
  print $ isPerfectSquare test0
  print $ isPerfectSquare test1
main = do
  let test0 = 14
  let test1 = 16
  print $ isPerfectSquare test0
  print $ isPerfectSquare test1
main = do
  let test0 = 14
  let test1 = 16
  print $ isPerfectSquare test0
  print $ isPerfectSquare test1