let rec DollarToCents line expand=
            match line with
            |[]->[]
            |[char] -> char
            |h::tail when h='$'-> h::DollarToCents tail true
            |h::tail when h=' ' && expand ->'0'::'0'::' '::DollarToCents tail false
            |h::tail when h='.' ->DollarToCents tail false
        log2|>List.map (fun zeile->DollarToCents zeile false)