Create cap6.hs

cap6