[F#]apoutのログを変換

7runconv.fsx

open System

let rec loop () =
    let line = Console.ReadLine ()
    if line <> null then
        if line.Length > 60 then
            let mne = line.[60..].Split(' ').[0]
            printfn "%s %s:%s" line.[0..23] line.[40..43] mne
        loop ()
loop ()

apoconv.fsx

open System

let conv8 s = Convert.ToInt32(s, 8)

let rec loop () =
    let line = Console.ReadLine ()
    if line <> null then
        let vals = line.Split(' ') |> Array.filter ((<>) "")
        if vals.Length = 12 then
            printfn "%04x %04x %04x %04x %04x %04x:%s"
                (conv8 vals.[3]) (conv8 vals.[4])
                (conv8 vals.[5]) (conv8 vals.[6])
                (conv8 vals.[7]) (conv8 vals.[0]) vals.[2]
        loop ()
loop ()