a remediation on calclock.hs