vivek ramaswamy vivekramaswamy

## pointfree.hs
--not pointfree
addAndDrop x y = x+1

--PointfreeVersion
addAndDrop = const.(1 +)

## Employee.hs
data Employee =
  Coder |
  Manager |
  Vp |
  Ceo deriving (Eq, Show)


reportBoss::Employee->Employee->IO()
reportBoss e e' =
  putStrLn $ show e ++ " is the boss of " ++ show e'
	--not pointfree
	addAndDrop x y = x+1

	--PointfreeVersion
	addAndDrop = const.(1 +)
	data Employee =
	Coder \|
	Manager \|
	Vp \|
	Ceo deriving (Eq, Show)


	reportBoss::Employee->Employee->IO()
	reportBoss e e' =
	putStrLn $ show e ++ " is the boss of " ++ show e'