Do map-lvar-getkey.hs in a less silly way.