Unfold to generate a sequence of turtle commands

Generating.fs

#load "Spirograph.fs"
open System.Drawing
open FSharp.TV.Spirograph

let cmdsStripe =
    [
    curve3rd 60.0 5
    turn -170.0
    move 80
    curve3rd 60.0 -5 ]

let cmdsGen = 
    [] 
    |> Seq.unfold (fun save -> Some(save, cmdsStripe)) 
    |> Seq.collect id

let innerCmds =
    cmdsGen 
    |> Seq.take 70
    |> Seq.toList

let appendSave sCmd iCmd =
    let revd = sCmd :: (iCmd |> List.rev)
    revd |> List.rev

let cmds = 
    moveTo (250.0,250.0) 
    :: (appendSave (saveAs "basic-loop") innerCmds)

Seq.fold 
    (fun s f -> f s) 
    (newTurtleWithSize 500 500)
    cmds