impl bankaccount.hs