class User {

    *** User name and password.
    Str name, password;

    *** Access rights.
    List rights;

    *** Make new user.
    new open(Str user, Str pass) {

        this.user = user
        this.pass = pass

        Sql sql = select * from rights where name = @user

        sql.rows.each |Str right, Int flags| {
            rights += Pair(right, flag)
        }
    }
}