assignment :: ToJSON a => B.ByteString -> a -> B.ByteString
assignment varname value =  B.concat [ varname, " = ", encode value, ";"]
assignment :: ToJSON a => B.ByteString -> a -> B.ByteString
assignment varname value =  B.concat [ varname, " = ", encode value, ";"]
assignment varname value =  B.concat [ varname, " = ", encode value, ";"]