anchor.diff:          100000, "bIp"
           1000000, "’uy’"
       ] |> Map.ofList
  +
  +let klingonTensToDec = 
  +    tens |> Map.toSeq |> Seq.map (fun (k,v) -> v,k) |> Map.ofSeq
   
   let decToKlingon dec = 
       if dec = 0 then numbers |> Map.find 0
  
positive.code:                     decToKlingon' y (div/10) (sprintf "%s %s%s" acc num tenth)
          decToKlingon' dec (1000000) "" |> (fun s -> s.Trim())
  
  let res = 
      [
          9999999
          0
          4234134
          23
          23424    
      ] |> List.map decToKlingon        
  
negative.code:         9, "Hut"
      ] |> Map.ofList
  
  let klingonNumbersToDec = 
      numbers |> Map.toSeq |> Seq.map (fun (k,v) -> v,k) |> Map.ofSeq
  
  let tens =
      [
          10, "maH"
  