Update BasLab6.hs

Small update