try nesting Html and using Reader monad