FIBSEQ — OCaml

(*  Display n numbers from the Fibonacci sequence.
 *
 *  Afternoon <noon at aftnn.org>, 2004
 *)
open List
open String

let fibseq x =
    let rec fibseqa n l =
        if n = 0 then (rev l)
        else fibseqa (n-1) ((hd l) + (hd (tl l)) :: l)
    in
    if x = 1 then [1]
    else fibseqa (x-2) [1; 1];;

let arg = int_of_string Sys.argv.(1) in
print_endline(concat ", " (map string_of_int (fibseq arg)));

exit 0;;