anchor.diff:                                                                    match grOption with
                                                                     | None -> (None, System.String.Join("\n",seqs))
                                                                     | Some(graphOption) -> (Some(graphOption), System.String.Join("\n",seqs))
  -
  +                                                                           
  +                                                                            
  +                                                                                 
  +                                                          
                   let! picture = ShowImageControl grOption drawGr
                   let! output = OutputControl seqs              
                   return (output) }
  
positive.code:                 |> wsfe.WithTextLabel "Output"
                  |> wsfe.WithLabelAbove
                  |> setFormSize (getFormSize 85 500) "textarea"               
              return output }
          |> wsfe.WithFormContainer
          |> wsff.FlipBody
          
      let ShowImageControl grOption drawGr = 
         let src = 
             match (grOption, drawGr) with
             | (None, true) -> "defaultImg.svg"
             | (None, false) -> "defaultImg.svg"
             | (Some(graphOption), true) -> "graphImg.svg" //to do
             | (Some(graphOption), false) -> "defaultImg.svg"
         wsff.OfElement (fun () ->
              let hw = "height: " + fst(getFormSize 355 355) + "; width: " + fst(getFormSize 355 355)
              Img [Attr.Style hw; Attr.Src src] )
         |> wsfe.WithTextLabel "Graph visualisation"
         |> wsfe.WithLabelAbove 
         |> wsfe.WithFormContainer          
  
      let frm =   
          let InputForm  =
  
negative.code:         
          Div [      
             MainForm
          ]
  