calculateBlockHash :: Block -> String
calculateBlockHash (Block i p t b n _)  =
  hashString $ concat [show i, p, show t, b, show n]
calculateBlockHash :: Block -> String
calculateBlockHash (Block i p t b n _)  =
  hashString $ concat [show i, p, show t, b, show n]
calculateBlockHash (Block i p t b n _)  =
  hashString $ concat [show i, p, show t, b, show n]