anchor.diff:              let cmds = (options |> List.map (HMMalignParams.makeCmdWith bcContext.Mount))
               let tp = ("hmmalign"::(cmds |> List.concat))@hmm@seqFile
   
  -            printfn "Starting process hmmalignn\r\nparameters:"
  +            printfn "Starting process hmmalign\r\nparameters:"
               printfn "%s" hmm.[0]
               printfn "%s" seqFile.[0]
               cmds |> List.iter (fun op -> printfn "\t%s" (String.concat " " op))
  
positive.code:                 | InclusionThreshold pList      -> pList |> List.map InclusionThresholdOptions.make       |> List.concat
                  | ModelSpecificThreshold pList  -> pList |> List.map ModelSpecificThresholdOptions.make   |> List.concat
                  | AccelerationHeuristics pList  -> pList |> List.map AccelerationHeuristicsOptions.make   |> List.concat
                  | Miscellaneous   pList         -> pList |> List.map MiscellaneousOptions.make            |> List.concat
negative.code: 
              let options = opt |> List.filter (fun p -> match p with |InputHMMFile _ |SequenceDB _ -> false |_ -> true)
              let cmds = (options |> List.map (HMMsearchParams.makeCmdWith bcContext.Mount))
              let tp = ("hmmsearch"::(cmds |> List.concat))@hmm@seqDB
  
              printfn "Starting process hmmsearch\r\nparameters:"
              printfn "%s" hmm.[0]
              printfn "%s" seqDB.[0]
              cmds |> List.iter (fun op -> printfn "\t%s" (String.concat " " op))
  