import Data.Map ((!))
import qualified Data.Map as M
import qualified Data.Set as S
import qualified Data.ByteString.Char8 as B
import Control.Applicative
import Data.Maybe
import Data.List
import Data.Ord

type Weight = Int
type Vertex = Int

type PriorityQueue = S.Set (Weight, Vertex)
nullq = S.null
emp = S.empty
push c v = S.insert (c,v)
pop = S.deleteFindMin

inf = 10^9+7
readEdge = map (fst . fromJust . B.readInt) . B.words

buildGraph edges =
 let g = groupBy (\ (x, _, _) (y, _, _) -> x == y) (sort edges)
 in M.fromList (map (\ x -> (f1 $ head x, map (\ (_, y, z) -> (y, z)) x)) g)

f1 :: (t, t1, t2) -> t
f1 (x, _, _) = x
 
f3 :: (t, t1, t2) -> t2
f3 (_, _, x) = x

main = do
 ([nv,ne,v0]:es) <- map (map (fst . fromJust . B.readInt) . B.words) . B.lines <$> B.getContents
 let g = buildGraph (map (\[s,t,d]->(s,t,d)) es)
 mapM_ (putStrLn . maybe "INF" show . sumOfWeight g nv ne v0 es) [0..nv-1]

sumOfWeight g nv ne v0 es v = M.lookup v (dijkstra g im0 q0)
 where
  im0 = M.singleton v0 0
  q0 = push 0 v0 emp

dijkstra g im q
 | nullq q = im
 | otherwise = dijkstra g im' q''
 where
  ((d,v),q') = pop q
  im' = foldl' (\acc (b,c) -> M.insert b (d+c) acc) im vns
  q'' = foldl' (\acc (b,c) -> push (d+c) b acc) q' vns
  vns = filter (\(b,c) -> M.notMember b im || d+c < im!b) (M.findWithDefault [] v g)