main' :: IO ()
main' = do
  print $ foldr (&&) True $ sequA 7
  print $ sequA $ fromMaybe' 0 s'
  print $ bolt  $ fromMaybe' 0 ys
main' :: IO ()
main' = do
  print $ foldr (&&) True $ sequA 7
  print $ sequA $ fromMaybe' 0 s'
  print $ bolt  $ fromMaybe' 0 ys
main' = do
  print $ foldr (&&) True $ sequA 7
  print $ sequA $ fromMaybe' 0 s'
  print $ bolt  $ fromMaybe' 0 ys