<SYSTEM_TASK:>
Solve the following problem using Python, implementing the functions described below, one line at a time
<END_TASK>
<USER_TASK:>
Description:
 def extract_haml(fileobj, keywords, comment_tags, options):
 """ babel translation token extract function for haml files """


    import haml
    from mako import lexer, parsetree
    from mako.ext.babelplugin import extract_nodes 

    encoding = options.get('input_encoding', options.get('encoding', None))
    template_node = lexer.Lexer(haml.preprocessor(fileobj.read()), input_encoding=encoding).parse()
    for extracted in extract_nodes(template_node.get_children(), keywords, comment_tags, options):
        yield extracted