anchor.diff:          | "smart", [||] ->
               dumbMode <- false
               Plan.zero
  +        | "reset", [||] ->
  +            plan {
  +                do! DemoSetup.setUpDemoData
  +                let! id = Domain.getUserByName DemoSetup.defaultUserName |> Plan.map Option.get
  +                userId <- id
  +            }
           | "become", [| name |] ->
               plan {
                   let! resolved = Domain.getUserByName name
  
positive.code: ﻿open System
  open System.Diagnostics
  open Rezoom
  open FileSystem
  open FileSystem.Execution
  
negative.code:             | None -> Plan.zero
              | Some id ->
                  showHierarchyWithPermissions userId (Some id)
          | "rmdir", [| idStr |] ->
              match parseFolderId idStr with
              | None -> Plan.zero
              | Some id ->
                  Domain.recycleFolder userId id
          | _ ->
              eprintfn "Unrecognized command."
              Plan.ret ()
  