{-# LANGUAGE BangPatterns      #-} --引数に!

import Data.Bits
import Data.Foldable (foldlM,foldrM)
import Data.Maybe (fromJust)
import Data.List
import qualified Data.Vector.Unboxed.Mutable as V
import Control.Monad
import qualified Data.ByteString.Lazy.Char8 as BS
import Debug.Trace

cnt :: [Char] -> Int
cnt [] = 0
cnt (a:s) = if a == 'o' then 1 + (cnt s) else cnt s

main :: IO ()
main = do
  n <- readLn
  print $ 180*(n-2)
