to_s' :: [Int] -> (Int,Int) -> String
to_s' p (i,v) =
  if elem i p
  then '*':(show v)
  else ' ':(show v)
to_s' :: [Int] -> (Int,Int) -> String
to_s' p (i,v) =
  if elem i p
  then '*':(show v)
  else ' ':(show v)
to_s' p (i,v) =
  if elem i p
  then '*':(show v)
  else ' ':(show v)