class Protocol(Base):
    __tablename__ = 'tblprotocol'
    id = Column("id", String(32), primary_key=True)
    version = Column("version", String(11), primary_key=True)
    name = Column("name", String(255))

class Experiment(Base):
    __tablename__ = 'tblexperiments'
    __table_args__ = (ForeignKeyConstraint(['protocolid','protocolversion'],
                                      ['tblprotocol.id', 'tblprotocol.version']), {})
    id = Column("id", String(32), primary_key=True)
    protocolid = Column("protocolid", String(32))
    protocolversion = Column("protocolversion", String(11))
    name = Column("name", String(255))
    protocol = relationship("Protocol", backref="experiments")

type Key val = KeyBackend (PersistEntityBackend val) val

{-# LANGUAGE QuasiQuotes, TemplateHaskell, TypeFamilies, OverloadedStrings #-}
{-# LANGUAGE GADTs, FlexibleContexts #-}
import Database.Persist
import Database.Persist.Sqlite
import Database.Persist.TH
import Control.Monad.IO.Class (liftIO)
import Database.Persist.Store

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persist|
Person
    name String
    age Int Maybe
    loc String default="Japan"
    deriving Show
|]

main :: IO ()
main = withSqliteConn "test.db" $ runSqlConn $ do
    runMigration migrateAll
    kzfmId <- insert $ Person "kzfm" (Just 20) "Fuji"
    liftIO $ print kzfmId
    kzfm <- getJust kzfmId
    liftIO $ print kzfm
    kzfm2 <- replace (Key (PersistInt64 1)) (kzfm {personAge = Just 36})
    liftIO $ print kzfm2
    kzfm3 <- getJust (Key (PersistInt64 1))
    liftIO $ print (personAge kzfm3)

Darkness Dub / Subwave
Underprint / Noisia & Alix Perez
Stoppit / Spor
Natures Call / Blue Motion
Skip Rope / Need For Mirrors
Dream Killer (Audio Remix) / Cause4Concern
Halogen / Spor
Horus / Billain
Vicious Nature / Ant Miles & Boneshaker
Ni Ten Ichi Ryu / Photek
Tap Ho / TC
Sacrifice / Noisia & The Upbeats
Shape Of Things To Come / Calyx & Teebee
Reflections / B-Complex
MEMORIES / SUBWAVE
Amen Alley / Danny Byrd

engine = create_engine("xxxxxxxx", encoding='cp932')

SELECT value FROM nls_database_parameters WHERE parameter='NLS_CHARACTERSET';

import os
os.environ["NLS_LANG"] = "JAPANESE_JAPAN.JA16SJISTILDE"