Baby shark as a Haskell program

babyShark.hs

{-# LANGUAGE BlockArguments #-}

module Main where

main :: IO ()
main = do
  babyShark
  do do do do do do babyShark
  do do do do do do babyShark
  do do do do do do babyShark

  mommyShark
  do do do do do do mommyShark
  do do do do do do mommyShark
  do do do do do do mommyShark

  daddyShark
  do do do do do do daddyShark
  do do do do do do daddyShark
  do do do do do do daddyShark

  grandpaShark
  do do do do do do grandpaShark
  do do do do do do grandpaShark
  do do do do do do grandpaShark

  let'sGoHunt
  do do do do do do let'sGoHunt
  do do do do do do let'sGoHunt
  do do do do do do let'sGoHunt

babyShark :: IO ()
babyShark = pure ()

mommyShark :: IO ()
mommyShark = pure ()

daddyShark :: IO ()
daddyShark =  pure ()

grandpaShark :: IO ()
grandpaShark = pure ()

let'sGoHunt :: IO ()
let'sGoHunt = pure ()